Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Feuilles

Feuilles

2 réponses
Avatar
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.
Signaler un problème avec ce contenu

2 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
Jacky
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" a écrit dans le message de news:

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.



Avatar
Pépère
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é"