Bonsoir à toutes et tous,
Je souhaiterai récupérer des données se trouvant dans un fichier comprenant
pas mal de lignes et colonnes grace à une combobox dans mon formulaire ces
données se rangeraient dans les txt telles qu'elles on été crée dans ce
formulaire
mes données ont été validées grace à une boucle for i, mais je ne sais
comment lui demander de les récupérer.
Pourriez vous m'aider s'il vous plaît.
Merci d'avance.
Ma cbo selectionne la colonne "A" : 'N° de ligne de chaque écriture
ex:
numligne = Sheets("clients").Range("A65536").End(xlUp).Row + 0
With Sheets("clients")
colDepart = 1
For i = 1 To 46
C = colDepart + (i - 1) * 4
Cells(numligne, C) = Me.Controls("TXTnom" & i)
Cells(numligne, C + 1) = Me.Controls("TXTadresse" & i)
Cells(numligne, C + 2) = Me.Controls("TXTvehicule" & i)
Cells(numligne, C + 3) = Me.Controls("TXTimmatrculation" & i)
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
michdenis
Bonjour Chris,
Un exemple là : http://cjoint.com/?mteYXkpqV8
Salutations!
"Chris" a écrit dans le message de news: Bonsoir à toutes et tous, Je souhaiterai récupérer des données se trouvant dans un fichier comprenant pas mal de lignes et colonnes grace à une combobox dans mon formulaire ces données se rangeraient dans les txt telles qu'elles on été crée dans ce formulaire mes données ont été validées grace à une boucle for i, mais je ne sais comment lui demander de les récupérer. Pourriez vous m'aider s'il vous plaît. Merci d'avance. Ma cbo selectionne la colonne "A" : 'N° de ligne de chaque écriture
ex: numligne = Sheets("clients").Range("A65536").End(xlUp).Row + 0 With Sheets("clients") colDepart = 1 For i = 1 To 46 C = colDepart + (i - 1) * 4 Cells(numligne, C) = Me.Controls("TXTnom" & i) Cells(numligne, C + 1) = Me.Controls("TXTadresse" & i) Cells(numligne, C + 2) = Me.Controls("TXTvehicule" & i) Cells(numligne, C + 3) = Me.Controls("TXTimmatrculation" & i)
Bonjour Chris,
Un exemple là : http://cjoint.com/?mteYXkpqV8
Salutations!
"Chris" <francois-christel@wanadoo.fr> a écrit dans le message de news: u3fY2JDBGHA.344@TK2MSFTNGP11.phx.gbl...
Bonsoir à toutes et tous,
Je souhaiterai récupérer des données se trouvant dans un fichier comprenant
pas mal de lignes et colonnes grace à une combobox dans mon formulaire ces
données se rangeraient dans les txt telles qu'elles on été crée dans ce
formulaire
mes données ont été validées grace à une boucle for i, mais je ne sais
comment lui demander de les récupérer.
Pourriez vous m'aider s'il vous plaît.
Merci d'avance.
Ma cbo selectionne la colonne "A" : 'N° de ligne de chaque écriture
ex:
numligne = Sheets("clients").Range("A65536").End(xlUp).Row + 0
With Sheets("clients")
colDepart = 1
For i = 1 To 46
C = colDepart + (i - 1) * 4
Cells(numligne, C) = Me.Controls("TXTnom" & i)
Cells(numligne, C + 1) = Me.Controls("TXTadresse" & i)
Cells(numligne, C + 2) = Me.Controls("TXTvehicule" & i)
Cells(numligne, C + 3) = Me.Controls("TXTimmatrculation" & i)
"Chris" a écrit dans le message de news: Bonsoir à toutes et tous, Je souhaiterai récupérer des données se trouvant dans un fichier comprenant pas mal de lignes et colonnes grace à une combobox dans mon formulaire ces données se rangeraient dans les txt telles qu'elles on été crée dans ce formulaire mes données ont été validées grace à une boucle for i, mais je ne sais comment lui demander de les récupérer. Pourriez vous m'aider s'il vous plaît. Merci d'avance. Ma cbo selectionne la colonne "A" : 'N° de ligne de chaque écriture
ex: numligne = Sheets("clients").Range("A65536").End(xlUp).Row + 0 With Sheets("clients") colDepart = 1 For i = 1 To 46 C = colDepart + (i - 1) * 4 Cells(numligne, C) = Me.Controls("TXTnom" & i) Cells(numligne, C + 1) = Me.Controls("TXTadresse" & i) Cells(numligne, C + 2) = Me.Controls("TXTvehicule" & i) Cells(numligne, C + 3) = Me.Controls("TXTimmatrculation" & i)
