copier valeur TextBox

Le
Cyr73
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

--
un grand merci à ceux qui pourront
m aider
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17749321
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
Le #17749521
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



Cyr73
Le #17749951
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
>



isabelle
Le #17750381
<html>
<head>
<meta content="text/html;charset=UTF-8" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
bonjour Cyr,<br>
<br>
comme ça ou autrement ?<br>
<br>
<table x:str="" style="border-collapse: collapse; width: 616pt;"
border="0" cellpadding="0" cellspacing="0" width="821">
<col style="width: 148pt;" width="197"> <col style="width: 85pt;"
width="113"> <col style="width: 188pt;" width="251"> <col
style="width: 195pt;" width="260"> <tbody>
<td class="xl24" style="height: 19.5pt; width: 148pt;"
align="center" height="26" width="197"><b>Fournisseurs :</b></td>
<td class="xl24" style="width: 85pt;" align="center" width="113"><b>Date
:</b></td>
<td class="xl24" style="width: 188pt;" align="center" width="251"><b>Montant
des Factures à 5,5 %</b></td>
<td class="xl25" style="width: 195pt;" align="center" width="260"><b>Montant
des Factures à 19,6 %</b></td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26">Transgourmet</td>
<td class="xl29" x:num="39763" align="center">11-11-2008</td>
<td class="xl28" x:num="" align="center">100</td>
<td class="xl28" x:num="" align="center">200</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26">autre<span style="">        </span>nom</td>
<td class="xl27" align="center">ici la date</td>
<td class="xl28" align="center">textBox2</td>
<td class="xl28" align="center">TextBox 8</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26"><br>
</td>
<td class="xl27" align="center"><br>
</td>
<td class="xl28" align="center">textBox3</td>
<td class="xl28" align="center">TextBox 9</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26">autre<span style="">        </span>nom</td>
<td class="xl27" align="center">ici la date</td>
<td class="xl28" align="center">textBox2</td>
<td class="xl28" align="center"><br>
</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26"><br>
</td>
<td class="xl27" align="center"><br>
</td>
<td class="xl28" align="center">textBox3</td>
<td class="xl28" align="center">TextBox 9</td>
</tr>
</td>
<td align="center"><br>
</td>
<td class="xl28" align="center">textBox4</td>
<td class="xl28" align="center"><br>
</td>
</tr>
</td>
<td align="center"><br>
</td>
<td class="xl28" align="center">textBox5</td>
<td class="xl28" align="center"><br>
</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26"><br>
</td>
<td class="xl27" align="center"><br>
</td>
<td class="xl28" align="center">textBox6</td>
<td class="xl28" align="center"><br>
</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26">autre<span style="">        </span>nom</td>
<td class="xl27" align="center">ici la date</td>
<td class="xl28" align="center">textBox2</td>
<td class="xl28" align="center">TextBox 8</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26">autre<span style="">        </span>nom</td>
<td class="xl27" align="center">ici la date</td>
<td class="xl28" align="center">textBox2</td>
<td align="center"><br>
</td>
</tr>
<td class="xl26" style="height: 20.1pt;" align="center"
height="26"><br>
</td>
<td class="xl27" align="center"><br>
</td>
<td class="xl28" align="center"><br>
</td>
<td class="xl28" align="center">TextBox 9</td>
</tr>
</tbody>
</table>
<br>
isabelle<br>
<br>
<br>
<br>
Cyr73 a écrit :
<blockquote
cite="mid:"
type="cite">
<pre wrap="">voici le fichier vous comprendrez mieux mon besoin
</pre>
</blockquote>
</body>
</html>
Publicité
Poster une réponse
Anonyme