Premiere ligne vide codage vba
jeoffreyg
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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
.
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
A voir également:
- Premiere ligne vide codage vba
- Partager photos en ligne - Guide
- Comment supprimer une page vide sur word - Guide
- Caractere vide - Guide
- Mètre en ligne - Guide
- Formate pour taxer client frigo vide - Forum Vos droits sur internet
1 réponse
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!!
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!!