Microsoft 365 copier des valeurs en utilisant des variables

[Mongo]

Bonjour,

j'ai besoin d'un peu d'aide
je cherche à copier les valeurs d'une feuille dans une autre feuille en utilisant des variables pour me positionner sur les cellules souces et cibles :
Cette ligne fonctionne :
Worksheets("Etiquettes").Range("A" & LigneCible) = Worksheets("PrixATraiter").Range("A" & LigneSource).Value

Le souci, c'est qu'elle n'est pas adaptée car je bouge également la position des colonnes avec des offset. J'ai donc essayé ceci :
Worksheets("Etiquettes").Cells(ColonneCible, LigneCible) = Worksheets("PrixATraiter").Cells(ColonneSource, LigneSource).Value
qui me permet de me positionner correctement.

Malheureusement, aucune donnée n'est copiée.

Merci d'avance pour votre aide,

 

[vgendron]

Bonjour

Déjà.. une image ne nous sert à rien puisque nous sommes sur un forum Excel et pas Photoshop..
ensuite, dans ta ligne de code
Worksheets("Etiquettes").Cells(ColonneCible, LigneCible) = Worksheets("PrixATraiter").Cells(ColonneSource, LigneSource).Value

tu as inversé les indices Lignes et colonnes
pour une cellule, c'est Cells(IndLigne, IndCol)

tu dis que ca ne copie rien.. peut etre que si, mais pas au bon endroit à cause de cette inversion d'indice..??
Une seule ligne de code ne nous permet pas de te dire ce qui ne va pas
les varialbes "ColonnesCible, LigneCible.... sont elles bien initialisées??

 

[Mongo]

vgendron,

Désolé pour l'image, c'était une fausse manip.
Ca fonctionne parfaitement avec cette inversion.

Merci pour votre aide

 

[Mongo]

J'ai une autre question.
Je voudrais sélectionner une plage de cellules - Range("A2:B2").Select - avec les variables utilisées dans ma macro : Cells(LigneCible, ColonneCible & LigneCible, ColonneCible1)

Merci

 

[vgendron]

il faut essayer de regarder un minimum l'aide vba
une cellule est définie par un indice de ligne et un indice de colonne: Cells(i,j)
une plage peut etre définie de plusieurs façon:
1) cellule de départ : cellule de fin:==> Range(cells(i,j),cells(k,l))
ou range("A2:B2")
ou Range("A2").resize(1,2)
le mot range peut être remplacé par des crochets: [A2] = Range("A2")