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
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
A voir également:
- Premiere ligne vide codage vba
- Codage binaire - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
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
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!!
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!!