Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Voila je n'ai toujour pas eu de reponse

Voila je n'ai toujour pas eu de reponse

3 réponses
Avatar
Nid Boubker Houssine
Bonjour à tous
j'ai ce code qui fonction tres bien par contre j'aimerai bien qu'il arrete
de mettre les donners dans la 1er fois plutot les mettre dans la deuxieme.
quelqu'u peux m'aider

merci


Private Sub TextBox1_Change()
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or
TextBox4.Value = "" Then MsgBox "Veuillez remplir toutes les données !":
Exit Sub
Dim i As Integer
i = 9
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop
ActiveWorkbook.ActiveSheet1.Range("B" & i) = TextBox1.Value
ActiveWorkbook.ActiveSheet1.Range("C" & i) = TextBox2.Value
ActiveWorkbook.ActiveSheet1.Range("D" & i) = TextBox3.Value
ActiveWorkbook.ActiveSheet1.Range("E" & i) = TextBox4.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

a
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
Bonsoir,

La première chose importante à savoir est que les contributeurs de ce
forum sont des bénévoles. La seconde est qu'il n'y pas obligation de
répondre (et heureusement).

Si tu pouvais préciser ce que tu entends par "qu'il arrete de mettre les
données dans la 1er fois plutot les mettre dans la deuxieme.", ça
risquerait de nous aider à savoir ce que tu souhaiterais obtenir.
Personnellement, je ne vois pas du tout.

Tout au plus, je peux te dire que tu peux accélérer quelque peu en
remplacant :
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop


par :
i¬tiveworkbook.activesheet.range("D65536").end(xlup).row+1

@+
FxM






Bonjour à tous
j'ai ce code qui fonction tres bien par contre j'aimerai bien cqu'il arrete
de mettre les donners dans la 1er fois plutot les mettre dans la deuxieme.
quelqu'u peux m'aider

merci


Private Sub TextBox1_Change()
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or
TextBox4.Value = "" Then MsgBox "Veuillez remplir toutes les données !":
Exit Sub
Dim i As Integer
i = 9
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop
ActiveWorkbook.ActiveSheet1.Range("B" & i) = TextBox1.Value
ActiveWorkbook.ActiveSheet1.Range("C" & i) = TextBox2.Value
ActiveWorkbook.ActiveSheet1.Range("D" & i) = TextBox3.Value
ActiveWorkbook.ActiveSheet1.Range("E" & i) = TextBox4.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

a




Avatar
LSteph
Bonjour Nid,
Déjà vu ton message, mais comprends pas ce que tu souhaites.

lSteph

"Nid Boubker Houssine" a écrit dans le message de
news:
Bonjour à tous
j'ai ce code qui fonction tres bien par contre j'aimerai bien qu'il arrete
de mettre les donners dans la 1er fois plutot les mettre dans la deuxieme.
quelqu'u peux m'aider

merci


Private Sub TextBox1_Change()
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or
TextBox4.Value = "" Then MsgBox "Veuillez remplir toutes les données !":
Exit Sub
Dim i As Integer
i = 9
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop
ActiveWorkbook.ActiveSheet1.Range("B" & i) = TextBox1.Value
ActiveWorkbook.ActiveSheet1.Range("C" & i) = TextBox2.Value
ActiveWorkbook.ActiveSheet1.Range("D" & i) = TextBox3.Value
ActiveWorkbook.ActiveSheet1.Range("E" & i) = TextBox4.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

a



Avatar
Nid Boubker Houssine
Bonjour
excuse je comprend bien mais j'ai du mal avancer ds mon boulot.
en plus je me suis mal expliqué:
j'ai la feuille 1 qui active un user forme avec 4 texte box, je voudrai
quand je validé des donner sur le userforme qui s'affiche ds la feuille un
il me les ecrive ds la feuille deux j'espere que c'est plus clair
merci d'avance
"FxM" a écrit dans le message de news:

Bonsoir,

La première chose importante à savoir est que les contributeurs de ce
forum sont des bénévoles. La seconde est qu'il n'y pas obligation de
répondre (et heureusement).

Si tu pouvais préciser ce que tu entends par "qu'il arrete de mettre les
données dans la 1er fois plutot les mettre dans la deuxieme.", ça
risquerait de nous aider à savoir ce que tu souhaiterais obtenir.
Personnellement, je ne vois pas du tout.

Tout au plus, je peux te dire que tu peux accélérer quelque peu en
remplacant :
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop


par :
i¬tiveworkbook.activesheet.range("D65536").end(xlup).row+1

@+
FxM






Bonjour à tous
j'ai ce code qui fonction tres bien par contre j'aimerai bien cqu'il
arrete
de mettre les donners dans la 1er fois plutot les mettre dans la
deuxieme.
quelqu'u peux m'aider

merci


Private Sub TextBox1_Change()
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or
TextBox4.Value = "" Then MsgBox "Veuillez remplir toutes les données !":
Exit Sub
Dim i As Integer
i = 9
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop
ActiveWorkbook.ActiveSheet1.Range("B" & i) = TextBox1.Value
ActiveWorkbook.ActiveSheet1.Range("C" & i) = TextBox2.Value
ActiveWorkbook.ActiveSheet1.Range("D" & i) = TextBox3.Value
ActiveWorkbook.ActiveSheet1.Range("E" & i) = TextBox4.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub

a