verifier une cellule et boucle

[wrndid]

bonjour
je voudrais verifier que le cellule est vide, aprés ecrire de la cellule vide a la cellule 33 , mai comme j ecrit dans ma cellule 7,33 la boucle est terminer
que faire merci


For a = 3 To 33
If Cells(7, 3).Value = "" Then
Cells(7, a).Value = Sheets(FNomDuMois$(i)).Cells(Z, a).Value
End If
If a = 33 Then
Z = Z + 1
End If
Next a

 

[wrndid]

Re : verifier une cellule et boucle

merci ca marche
a tu une idée pour mettre un calendrier(style de window dans la barre du bas )et quand je click sur un jour je met sa valeur dans un textbox
merci

 

[fhoest]

Re : verifier une cellule et boucle

oui bien sur il te suffit de dessiner un controle calendar (accepter activex) et d'y ajouter les références dans outils références puis créer un code sur l'évènement click recup valeur qui va dans textbox
je fait un exemple et je le poste
A tout de suite