Comprendre le bitcoin, l'intelligence artificielle, faire un site web... En 3 minutes en vidéo!

Code Visual Basic [Résolu]

<<<123>>>

[Page 3 sur 3 - 40 messages]
Informations Messages

sundering

Avatar de sundering
1471 messages
PC de Compèt'
PC de Compèt'
AidoWindows
AidoWindows

Lien direct Le 04 Juin 2010 à 19h28

Alors, il y a plusieurs trucs à faire.

Supprimer dans le userform_initialise

Code

'Si la cellule A1 ou B1 n'est pas vide alors on affecte la valeur de la cellule dans la textbox
If Not Worksheets("Compte-Rendu").Range("A1").Value = "" Or Worksheets("Compte-Rendu").Range("B1").Value = "" Then
'Affectation de la valeur contenant dans la cellule A1/B1
txtDebut.Value = Sheets("Compte-Rendu").Range("A1").Value
txtFin.Value = Sheets("Compte-Rendu").Range("B1").Value
Else
'Affectation de valeur par défaut pour la plage
txtDebut.Value = "A3"
txtFin.Value = "E3"
End If


Et y rajouter :

Code

i = 0
cpt = 0

For i = 3 To Range("F65536").End(xlUp).Row
If Cells(i, 6).Value = "" Then
Exit For
End If
Next i



Ajouter avec les déclarations de variables un

Code

private i as integer



Il faut supprimer aussi ceci (qui se trouve dans btnOk_Click())

Code

'Si le champ de recherche a été changé alors l'appuie sur le bouton OK met à jour les cellules contenant les valeurs à parcourir
If rc = True Then
Sheets("Compte-Rendu").Range("A1").Value = txtDebut.Value
Sheets("Compte-Rendu").Range("B1").Value = txtFin.Value
End If



+ supprimer les controles txtDebut + txtFin ainsi que les 2 labels
+ modifier la méthode Reinit()
Tu supprimes

Code

strPlage = Sheets("Compte-Rendu").Range("A1").Value & ":" & Sheets("Compte-Rendu").Range("B1").Value


Et tu mets à la place :

Code

strPlage = "A3:"&"F"&i



Essaie comme ça, je pense ne rien avoir oublié.

 

Publicité

kk

Avatar de kéké
258 messages
Processeur
Processeur

Lien direct Le 04 Juin 2010 à 21h20

Merci, je vais tester ça et je te tiens au courant!

 

sundering

Avatar de sundering
1471 messages
PC de Compèt'
PC de Compèt'
AidoWindows
AidoWindows

Lien direct Le 09 Juin 2010 à 12h25

Des news ?

 

sundering

Avatar de sundering
1471 messages
PC de Compèt'
PC de Compèt'
AidoWindows
AidoWindows

Lien direct Le 10 Juin 2010 à 12h16

Il y avait un peu plus de choses à faire que prévu.

J'ai rajouté un bouton sur la première page. Il permet d'effectuer une recherche dans tout le classeur (sauf la première page) et indique dans une case, le résultat obtenu à la recherche.

Dans le cas des autres feuilles, la recherche ne s'effectue que dans la feuille en cours.

Voilà, je mets le lien ici.
http://dl.free.fr/c7p3jbllp
mdp = keke

 

kk

Avatar de kéké
258 messages
Processeur
Processeur

Lien direct Le 11 Juin 2010 à 02h18

merci.

 

sundering

Avatar de sundering
1471 messages
PC de Compèt'
PC de Compèt'
AidoWindows
AidoWindows

Lien direct Le 11 Juin 2010 à 09h37

Tiens moi au jusSourire

 

kk

Avatar de kéké
258 messages
Processeur
Processeur

Lien direct Le 12 Juin 2010 à 23h57

Tout marche à merveille. J'ai fait quelque modification. encore merci.

 

sundering

Avatar de sundering
1471 messages
PC de Compèt'
PC de Compèt'
AidoWindows
AidoWindows

Lien direct Le 14 Juin 2010 à 08h30

De rien.

N'oublie pas de passer en résolu...

 

sundering

Avatar de sundering
1471 messages
PC de Compèt'
PC de Compèt'
AidoWindows
AidoWindows

Lien direct Le 07 Juillet 2010 à 12h27

UP.

N'oublie pas de mettre en résolu Cool

 

Pouzy

Avatar de Pouzy
14213 messages
No-Life
No-Life
Administrateur
Administrateur

Lien direct Le 07 Juillet 2010 à 12h31

Je l'ai passé en résoluClin d'oeil

Merci à toi sundering, génial Hello On voit que tu touches ta bille là dessusContent

Devenez fan d'Aidoweb sur Facebook o/ - N'oubliez pas de cliquer sur [Résolu] une fois votre problème réglé
 

<<<123>>>

[Page 3 sur 3 - 40 messages]