j'ai de nouveau besoin de votre aide pour copier la valeur de
TextBox(1,2,3...)
vers des colonnes de la Feuil'!Enregistrement des Factures..
la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur
du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du
TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4
dans la dernière ligne vide de la colonne D et complication faire une boucle
reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem
TextBox7 et 8 et enfin TextBox9 et 10
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
Daniel.C
Bonsoir. Si les textboxes se trouvent sur un userform, essaie :
Dim Ctrl As Control With Sheets("Feuil3") For Each Ctrl In Me.Controls If Left(Ctrl.Name, 7) = "TextBox" Then .Cells(65000, Right(Ctrl.Name, Len(Ctrl.Name) _ - 7) * 1).End(xlUp).Offset(1) = Ctrl End If Next Ctrl End With
On pourrait simpplifier si toutes les cellules à remplir se trouvaient sur la même ligne. Cordialement. Daniel
j'ai de nouveau besoin de votre aide pour copier la valeur de TextBox(1,2,3...) vers des colonnes de la Feuil'!Enregistrement des Factures.. la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4 dans la dernière ligne vide de la colonne D et complication faire une boucle reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem TextBox7 et 8 et enfin TextBox9 et 10
Bonsoir.
Si les textboxes se trouvent sur un userform, essaie :
Dim Ctrl As Control
With Sheets("Feuil3")
For Each Ctrl In Me.Controls
If Left(Ctrl.Name, 7) = "TextBox" Then
.Cells(65000, Right(Ctrl.Name, Len(Ctrl.Name) _
- 7) * 1).End(xlUp).Offset(1) = Ctrl
End If
Next Ctrl
End With
On pourrait simpplifier si toutes les cellules à remplir se trouvaient
sur la même ligne.
Cordialement.
Daniel
j'ai de nouveau besoin de votre aide pour copier la valeur de
TextBox(1,2,3...)
vers des colonnes de la Feuil'!Enregistrement des Factures..
la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur
du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du
TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4
dans la dernière ligne vide de la colonne D et complication faire une boucle
reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem
TextBox7 et 8 et enfin TextBox9 et 10
Bonsoir. Si les textboxes se trouvent sur un userform, essaie :
Dim Ctrl As Control With Sheets("Feuil3") For Each Ctrl In Me.Controls If Left(Ctrl.Name, 7) = "TextBox" Then .Cells(65000, Right(Ctrl.Name, Len(Ctrl.Name) _ - 7) * 1).End(xlUp).Offset(1) = Ctrl End If Next Ctrl End With
On pourrait simpplifier si toutes les cellules à remplir se trouvaient sur la même ligne. Cordialement. Daniel
j'ai de nouveau besoin de votre aide pour copier la valeur de TextBox(1,2,3...) vers des colonnes de la Feuil'!Enregistrement des Factures.. la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4 dans la dernière ligne vide de la colonne D et complication faire une boucle reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem TextBox7 et 8 et enfin TextBox9 et 10
isabelle
bonjour Cyr73,
je te mets un exemple pour les TextBox 1-2-3 je ne comprend pas très bien la demande pour le restant,
Private Sub CommandButton1_Click() Dim a(3) With Sheets("Enregistrement des Factures") For i = 1 To 3 a(i - 1) = .Cells(65536, i).End(xlUp).Row + 1 .Cells(a(i - 1), i) = UserForm1.Controls("TextBox" & i) Next End With End Sub
isabelle
Cyr73 a écrit :
j'ai de nouveau besoin de votre aide pour copier la valeur de TextBox(1,2,3...) vers des colonnes de la Feuil'!Enregistrement des Factures.. la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4 dans la dernière ligne vide de la colonne D et complication faire une boucle reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem TextBox7 et 8 et enfin TextBox9 et 10
bonjour Cyr73,
je te mets un exemple pour les TextBox 1-2-3
je ne comprend pas très bien la demande pour le restant,
Private Sub CommandButton1_Click()
Dim a(3)
With Sheets("Enregistrement des Factures")
For i = 1 To 3
a(i - 1) = .Cells(65536, i).End(xlUp).Row + 1
.Cells(a(i - 1), i) = UserForm1.Controls("TextBox" & i)
Next
End With
End Sub
isabelle
Cyr73 a écrit :
j'ai de nouveau besoin de votre aide pour copier la valeur de
TextBox(1,2,3...)
vers des colonnes de la Feuil'!Enregistrement des Factures..
la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur
du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du
TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4
dans la dernière ligne vide de la colonne D et complication faire une boucle
reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem
TextBox7 et 8 et enfin TextBox9 et 10
je te mets un exemple pour les TextBox 1-2-3 je ne comprend pas très bien la demande pour le restant,
Private Sub CommandButton1_Click() Dim a(3) With Sheets("Enregistrement des Factures") For i = 1 To 3 a(i - 1) = .Cells(65536, i).End(xlUp).Row + 1 .Cells(a(i - 1), i) = UserForm1.Controls("TextBox" & i) Next End With End Sub
isabelle
Cyr73 a écrit :
j'ai de nouveau besoin de votre aide pour copier la valeur de TextBox(1,2,3...) vers des colonnes de la Feuil'!Enregistrement des Factures.. la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4 dans la dernière ligne vide de la colonne D et complication faire une boucle reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem TextBox7 et 8 et enfin TextBox9 et 10
Cyr73
voici le fichier vous comprendrez mieux mon besoin http://cjoint.com/?lexLmxTDOp -- un grand merci à ceux qui pourront m''''''''aider...
"isabelle" a écrit :
bonjour Cyr73,
je te mets un exemple pour les TextBox 1-2-3 je ne comprend pas très bien la demande pour le restant,
Private Sub CommandButton1_Click() Dim a(3) With Sheets("Enregistrement des Factures") For i = 1 To 3 a(i - 1) = .Cells(65536, i).End(xlUp).Row + 1 ..Cells(a(i - 1), i) = UserForm1.Controls("TextBox" & i) Next End With End Sub
isabelle
Cyr73 a écrit : > j'ai de nouveau besoin de votre aide pour copier la valeur de > TextBox(1,2,3...) > vers des colonnes de la Feuil'!Enregistrement des Factures.. > la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur > du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du > TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4 > dans la dernière ligne vide de la colonne D et complication faire une boucle > reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem > TextBox7 et 8 et enfin TextBox9 et 10 >
voici le fichier vous comprendrez mieux mon besoin
http://cjoint.com/?lexLmxTDOp
--
un grand merci à ceux qui pourront
m''''''''aider...
"isabelle" a écrit :
bonjour Cyr73,
je te mets un exemple pour les TextBox 1-2-3
je ne comprend pas très bien la demande pour le restant,
Private Sub CommandButton1_Click()
Dim a(3)
With Sheets("Enregistrement des Factures")
For i = 1 To 3
a(i - 1) = .Cells(65536, i).End(xlUp).Row + 1
..Cells(a(i - 1), i) = UserForm1.Controls("TextBox" & i)
Next
End With
End Sub
isabelle
Cyr73 a écrit :
> j'ai de nouveau besoin de votre aide pour copier la valeur de
> TextBox(1,2,3...)
> vers des colonnes de la Feuil'!Enregistrement des Factures..
> la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur
> du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du
> TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4
> dans la dernière ligne vide de la colonne D et complication faire une boucle
> reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem
> TextBox7 et 8 et enfin TextBox9 et 10
>
voici le fichier vous comprendrez mieux mon besoin http://cjoint.com/?lexLmxTDOp -- un grand merci à ceux qui pourront m''''''''aider...
"isabelle" a écrit :
bonjour Cyr73,
je te mets un exemple pour les TextBox 1-2-3 je ne comprend pas très bien la demande pour le restant,
Private Sub CommandButton1_Click() Dim a(3) With Sheets("Enregistrement des Factures") For i = 1 To 3 a(i - 1) = .Cells(65536, i).End(xlUp).Row + 1 ..Cells(a(i - 1), i) = UserForm1.Controls("TextBox" & i) Next End With End Sub
isabelle
Cyr73 a écrit : > j'ai de nouveau besoin de votre aide pour copier la valeur de > TextBox(1,2,3...) > vers des colonnes de la Feuil'!Enregistrement des Factures.. > la valeur du TextBox1 dans la dernière ligne vide de la colonne A, la valeur > du TextBox 2 dans la dernière ligne vide de la colonne B, la valeur du > TextBox 3 dans la dernière ligne vide de la colonne C, la valeur du TextBox 4 > dans la dernière ligne vide de la colonne D et complication faire une boucle > reprenant valeur TextBox 1 et 2 mais utilisant TextBox5 et 6 puis idem > TextBox7 et 8 et enfin TextBox9 et 10 >