Discussion :

[weserlide]

Bonjour,

Je souhaite faire en sorte que lorsque l'on rempli une ligne d'un tableau de suivi, les données remplies soient copiées collées sur le rapport d'expertise d'une autre feuille Excel.
Pour cela, j'ai commencé à écrire :
sheets("feuille suivi").Range(cellule à copier).Copy Destination:=Sheets (rapport d'expertise).Range(cellule où coller)
Cette formule fonctionne mais elle copie seulement une cellule déterminée. Alors que moi, je voudrais faire en sorte que lorsque l'on séléctionne une ligne du tableau, on appui sur un bouton et les données de cette ligne remplissent le rapport d'expertise. J'ai alors pensé à remplacer Range(cellule à copier) par la formule qui va bien pour dire " copier la cellule sélectionnée de la colonne machin " mais je n'arrive pas à trouver cette formule pour que cette macro fonctionne.
Pouvez-vous m'aider ?

Cordialement,

[Menhir]

Je ne comprends pas trop comment sont organisées les données dans ta feuille de destination mais tu as plusieurs solutions.

Si tes données sont regroupées de la même façon dans ta destination que dans ta source, tu peux simplement indiquer une zone (de type "A1:A10") dans le Range de ta formule.

Si les données sont dispersées dans ta zone de destination, tu peux multiplier les lignes en copiant ta formule avec des références de cellules différentes à chaque fois.

Cela dit, si tu veux transférer uniquement les valeurs, il est plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets (rapport d'expertise).Range(cellule où coller) = sheets("feuille suivi").Range(cellule à copier)

Ta formule a l'avantage de copier aussi le format.

[weserlide]

Ce n'est pas vraiment ce que je voulais... :/
En faite, j'ai créé un rapport d'expertise avec plusieurs blancs à remplir ( j'ai utilisé le mode Mise en page dans affichage ) puis j'ai créé sur une autre feuille Excel un tableau avec en tête de colonne les éléments présents sur le rapport d'expertise. En faite le tableau est juste une autre forme du rapport d'expertise, c'est pour qu'avec une seule ligne du tableau, je puisse remplir le rapport d'expertise automatiquement grace aux macro.

C'est pour cela que je voudrais savoir comment écrire "copier la cellule selectionner de la colonne machin" sachant que toute une ligne du tableau sera sélectionnée.

Ce qui me permettrai de pouvoir remplir plusieurs lignes du tableau et donc pouvoir en selectionner une afin d'avoir grâce à VBA le rapport d'expertise correspondant à cette ligne.

J'espère être claire, c'est pas évident ..

[Menhir]

Il suffit de commencer par enregistrer le numéro de ligne en début de macro en le mettant dans une variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaVariable = Selection.Row

Et ensuite d'utiliser cette variable comme une valeur dans les références de cellules source avec les méthode que je t'ai donné auparavant.

[weserlide]

Je ne comprend pas trop comment utiliser cette variable ..

J'ai essayé :

Dim MaVariable as Variant

MaVariable =Selection.Row
Sheets ("rapport").range("cellule où coller") = Sheets("feuille suivie").Columns(2 par exemple).Range("MaVariable")

Mais évidemment ce n'est pas ça, je ne sais pas comment utilisé MaVariable

[Menhir]

Dim MaVariable as Variant

Il faut essayer de n'utilise Variant que dans deux cas :
- quand le type de la variable en question peut varier au cours de l'exécution de la macro
- quand on utilise une variable pour récupérer une valeur provenant d'une fonction qui peut renvoyer différents type de données

Comme le précise l'aide VBA d'Excel, la propriété Row renvoie une variable de type Long.

On écrira donc plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim MaVariable as Long

Sheets ("rapport").range("cellule où coller") = Sheets("feuille suivie").Columns(2 par exemple).Range("MaVariable")

En suposant que ta donnée source est en colonne E (5è colonne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets ("rapport").range("cellule où coller") = Sheets("feuille suivie").Cells(MaVariable,5)

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets ("rapport").range("cellule où coller") = Sheets("feuille suivie").Range("E"&MaVariable)

[weserlide]

Je vous remercie !! Celà fonctionne niquel !!