Premiere ligne vide codage vba

jeoffreyg -  
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

1 réponse

  1. melanie1324 Messages postés 1561 Statut Membre 156
     
    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