Obliger de quitter excel pour que macro March
imis
-
imis -
imis -
Bonjour,
J'ai un petit soucis, je suis obligé de quitter excel pour que la macro qui remplis mon tableau automatiquement en recherchant la dernière ligne vide de mon tableau fonctionne. C'est pas très clair mais voilà:
Private Sub CommandButton2_Click()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row
If lig < 10 Then
lig = 10
Else: lig = lig + 1
End If
With Sheets("Feuil4")
.Cells(lig, 1) = TextBox2
.Cells(lig, 2) = TextBox1
.Cells(lig, 3) = TextBox3
.Cells(lig, 4) = TextBox4
.Cells(lig, 5) = TextBox5
.Cells(lig, 6) = TextBox6
.Cells(lig, 9) = TextBox7
.Cells(lig, 7) = TextBox8
.Cells(lig, 8) = TextBox9
.Cells(lig, 10) = TextBox10
.Cells(lig, 11) = TextBox11
.Cells(lig, 12) = TextBox12
.Cells(lig, 13) = TextBox13
.Cells(lig, 14) = TextBox14
.Cells(lig, 15) = TextBox15
.Cells(lig, 16) = TextBox16
.Cells(lig, 18) = TextBox17
End With
Unload UserForm4
End Sub
Et ce code fonctionne à merveille mais je suis obligé de quitter excel, réouvrir, resaisir pour que cela fonctionne autrement si j'execute le programme sans quitter excel bah les nouvelles données effacent les précedentes :(
(Ah oui je suis débutant alors les termes "macro" et "code" ne sont peut être pas utilisés correctement dsl)
MERCI D'AVANCE
J'ai un petit soucis, je suis obligé de quitter excel pour que la macro qui remplis mon tableau automatiquement en recherchant la dernière ligne vide de mon tableau fonctionne. C'est pas très clair mais voilà:
Private Sub CommandButton2_Click()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row
If lig < 10 Then
lig = 10
Else: lig = lig + 1
End If
With Sheets("Feuil4")
.Cells(lig, 1) = TextBox2
.Cells(lig, 2) = TextBox1
.Cells(lig, 3) = TextBox3
.Cells(lig, 4) = TextBox4
.Cells(lig, 5) = TextBox5
.Cells(lig, 6) = TextBox6
.Cells(lig, 9) = TextBox7
.Cells(lig, 7) = TextBox8
.Cells(lig, 8) = TextBox9
.Cells(lig, 10) = TextBox10
.Cells(lig, 11) = TextBox11
.Cells(lig, 12) = TextBox12
.Cells(lig, 13) = TextBox13
.Cells(lig, 14) = TextBox14
.Cells(lig, 15) = TextBox15
.Cells(lig, 16) = TextBox16
.Cells(lig, 18) = TextBox17
End With
Unload UserForm4
End Sub
Et ce code fonctionne à merveille mais je suis obligé de quitter excel, réouvrir, resaisir pour que cela fonctionne autrement si j'execute le programme sans quitter excel bah les nouvelles données effacent les précedentes :(
(Ah oui je suis débutant alors les termes "macro" et "code" ne sont peut être pas utilisés correctement dsl)
MERCI D'AVANCE
A voir également:
- Obliger de quitter excel pour que macro March
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Forcer à quitter - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
1 réponse
j'ai beau chercher je ne trouve pas :( . Si une âme généreuse pouvait m'aider ce ne serait pas de refus.
J'ai essayé d'effacer tous le contenue de mes textbox mais sans résultat. Pourtant il fonctionne super bien, mais vous me l'accorderez ce n'est pas top de quitter excel pour pouvoir saisir une autre ligne.
MERCI D'AVANCE
J'ai essayé d'effacer tous le contenue de mes textbox mais sans résultat. Pourtant il fonctionne super bien, mais vous me l'accorderez ce n'est pas top de quitter excel pour pouvoir saisir une autre ligne.
MERCI D'AVANCE