detbour
Messages postés11Date d'inscriptionjeudi 19 juin 2008StatutMembreDernière intervention19 septembre 2009
-
27 oct. 2008 à 14:58
DidierLoche
Messages postés33Date d'inscriptiondimanche 26 octobre 2008StatutMembreDernière intervention25 novembre 2008
-
29 oct. 2008 à 20:46
BONJOUR
Je suis débutant en vba, j'ai un bout de code qui me permet d'ecrire dans excel dans une colonne.A chaque fois que je lance le programme je peut ecrire a la suite de la precedente manipulation. Et ca detecte le cellule vide.
Private Sub CmdValidez_Click()
Dim j As Integer
Dim l As Integer
j = 0
l = 0
While (j = 0)
DoEvents
'cherche la cellule vide
If ActiveSheet.Range("A1").Offset(l, 0).Value = "" Then
ActiveSheet.Range("A1").Offset(l, 0).Select
j = 1
End If
DoEvents
l = l + 1
Wend
'Saisie des informations de la premiere feuille (CltJoueur) du classeur excel
Sheets("CltJoueur").Cells(l, 1) = FrmCltJoueur.Frame1.CmbNom.Text
end sub
Mon probleme:
Je veut ecrire sur 10lignes sur la collonne A, et a la dixieme ligne Reinitialiser les lignes a 1 et ecrire sur la colonne B et ainsi de suite.
Si c possible merci de me conseiller.
Bonne journée a tous
DidierLoche
Messages postés33Date d'inscriptiondimanche 26 octobre 2008StatutMembreDernière intervention25 novembre 20081 29 oct. 2008 à 20:46
Bonsoir,
Cela devrait répondre à ton besoin.
Sub test()
Dim li As Integer, co As Integer
li = 1
co = 1
Do While Cells(li, co) <> ""
li = li + 1
If li > 10 Then
li = 1
co = co + 1
End If
Loop
' suite du programme : la prochaine cellule nide est cells(li,co)
End Sub