Feuilles

Le
Pépère
Bonjour la communauté

Dans un classeur, j'utilise 4 feuilles (1= Clients,2= Estimé, 3= Commander &
4= Impr)
La feuille Estimé contient des données d'un client par ligne pouvant se
rendre jusqu'à la colonne BB.
La feuille Impr recoit les données provenant de la feuille Estimé.

Range("Impr!A" & lign).Value = Range("Estimé!E" & lignestimé).Value
Range("Impr!C" & lign).Value = Range("Estimé!F" & lignestimé).Value
Range("Impr!F" & lign).Value = Range("Estimé!G" & lignestimé).Value
lign = lign + 1


Range("Estimé!E" & lignestimé).Select
x = ActiveCell.Column

La variable x représente bien la colonne 5 soit colonne E.

Je ne trouve pas la façon de remplacer:
Range("Estimé!E" & lignestimé).Value par Range("Estimé!x" & lignestimé).Value
x = x + 1
Range("Estimé!F" & lignestimé).Value par Range("Estimé!x" & lignestimé).Value
x = x + 1
Range("Estimé!G" & lignestimé).Value par Range("Estimé!x" & lignestimé).Value
x = x + 1

Le contenu de la variable x n'est pas reconnu.

Quelqu'un pourrait m'informer comment procéder s.v.p.

Merci et bonne journée.
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
Jacky
Le #5103081
Bonsoir,

Je ne trouve pas la façon de remplacer:
Range("Estimé!E" & lignestimé).Value par Range("Estimé!x" &
lignestimé).Value
x = x + 1


Principe ==> Cells(Row,Column).value=.......soit Cells(ligne,colonne)=......
Cells(1,1) est l'équivalent de Range("A1")
Donc dans ton exemple:
'-----------------
Îlls(lignestimé, x).Value

ou si Estimé n'est pas la feuille active

=Sheets("Estimé").Cells(lignestimé, x).Value
'---------------

Reste à définir la valeur de "lignestimé"
--
Salutations
JJ


"Pépère"
Bonjour la communauté

Dans un classeur, j'utilise 4 feuilles (1= Clients,2= Estimé, 3= Commander
&
4= Impr)
La feuille Estimé contient des données d'un client par ligne pouvant se
rendre jusqu'à la colonne BB.
La feuille Impr recoit les données provenant de la feuille Estimé.

Range("Impr!A" & lign).Value = Range("Estimé!E" & lignestimé).Value
Range("Impr!C" & lign).Value = Range("Estimé!F" & lignestimé).Value
Range("Impr!F" & lign).Value = Range("Estimé!G" & lignestimé).Value
lign = lign + 1


Range("Estimé!E" & lignestimé).Select
x = ActiveCell.Column

La variable x représente bien la colonne 5 soit colonne E.

Je ne trouve pas la façon de remplacer:
Range("Estimé!E" & lignestimé).Value par Range("Estimé!x" &
lignestimé).Value
x = x + 1
Range("Estimé!F" & lignestimé).Value par Range("Estimé!x" &
lignestimé).Value
x = x + 1
Range("Estimé!G" & lignestimé).Value par Range("Estimé!x" &
lignestimé).Value
x = x + 1

Le contenu de la variable x n'est pas reconnu.

Quelqu'un pourrait m'informer comment procéder s.v.p.

Merci et bonne journée.



Pépère
Le #5103011
Merci beaucoup, beaucoup.
D'un varennois à - 10 celsius


Bonsoir,
Principe ==> Cells(Row,Column).value=.......soit Cells(ligne,colonne)=......
Cells(1,1) est l'équivalent de Range("A1")
Donc dans ton exemple:
'-----------------
Îlls(lignestimé, x).Value

ou si Estimé n'est pas la feuille active

=Sheets("Estimé").Cells(lignestimé, x).Value
'---------------

Reste à définir la valeur de "lignestimé"


Publicité
Poster une réponse
Anonyme