Premiere ligne vide codage vba

Fermé
jeoffreyg - Modifié par jeoffreyg le 30/05/2011 à 20:39
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 31 mai 2011 à 09:28
Bonjour,
.
bonjour, j'ai plusieur userform qui me remplisse un tableau excel sur une autre feuille et je voudrai savoir comment transforme mon code pour ne pas ecraser la ligne mais utiliser la ligne d'en dessous( la premiere vide)
.
Ci-dessous, les codes de mes bouton dans les userform qui remplisse mes cellule:
.
'Premiere userform:
.
Private Sub EnvoyerCap_Click()
.
Range("compteRendu!B3") = HeureCAP.Value
Range("compteRendu!C3") = NomCAP.Value
Range("compteRendu!E3") = commentsCap.Value
Range("compteRendu!L3") = DefautRapideCAP.Value
.
End sub
.
'Deuxieme userform :
.
Private Sub EnvoyerDOCK_Click()
.
Range("compteRendu!B3") = HeureDOCK.Value
Range("compteRendu!C3") = TypeDOCK.Value & " " & NomDOCK.Value & " " & NumDOCK.Value
Range("compteRendu!D3") = CTDOCK.Value
Range("compteRendu!E3") = commentsDOCK.Value
.
Unload UserFormDOCK
.
End Sub
.
'Troisieme userform :
.
Private Sub EnvoyerMI_Click()
.
Range("compteRendu!B3") = HeureMI.Value
Range("compteRendu!C3") = TypeMI.Value & " " & NumMI.Value
Range("compteRendu!D3") = CTMI.Value
Range("compteRendu!E3") = commentsMI.Value
Range("compteRendu!L3") = DefautRapideMI.Value
.
Unload UserFormMIs
.
End Sub
.
'PS : il y en a deux autres mai je pense que le codage sera identique

1 réponse

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
31 mai 2011 à 09:28
Bonjour,

Voila comment modifier tes macros :
'Premiere userform:
.
Private Sub EnvoyerCap_Click()
.
i=3
do while sheets("compterendu").cells(i,2)<> ""
i=i+1
loop
sheets("compteRendu").cells(i,2) = HeureCAP.Value
sheets("compteRendu").cells(i,3) = NomCAP.Value
sheets("compteRendu").cells(i,4) = commentsCap.Value
sheets("compteRendu").cells(i,5) = DefautRapideCAP.Value
.
End sub



'Deuxieme userform :
.
Private Sub EnvoyerDOCK_Click()
.
i=3
do while sheets("compterendu").cells(i,2)<> ""
i=i+1
loop
sheets("compteRendu").cells(i,2) = HeureDOCK.Value
sheets("compteRendu").cells(i,3) = TypeDOCK.Value & " " & NomDOCK.Value & " " & NumDOCK.Value
sheets("compteRendu").cells(i,4) = CTDOCK.Value
sheets("compteRendu").cells(i,5)= commentsDOCK.Value
.
Unload UserFormDOCK
.
End Sub

fait la meme chose sur tes autres macros!!
0