Comment stocker la valeur d'une cellule dans une variable et la réutiliser dans une autre cellule?

Bonsoir à tous !!

Je dois faire une macro VBA qui permet de récupérer des valeurs dans une base de données excel 2007.

Pour cela je dois sur une nouvelle feuille, récupérer les numéros immatriculation de composants qui sont sur une colonne A, copier la valeur de ce numéro et le recopier sur une autre cellule H10 d'une autre feuille qui prendra cette valeur pour faire d'autre calculs associés à ce numéro d'immatriculation. J'ai essayé les suites de SELECT/COPY/PASTE , mais comme j'ai trois cellules fusionnées pour la H10, je ne peux pas le faire...

Et tout ça je dois le faire en boucle pour tous les composants, pour se faire je voudrais savoir comment faire pour copier la valeur d'une cellule et la mettre dans une variable NumberEquipement que j'aurais déclaré puis réutilisé cette valeur de cette variable NumberEquipement pour la mettre dans H10 pour qu'il calcule tout.. apres.. :S


Merci pour votre aide d'avance ! :(

Bonjour,

Pour les cellules fusionnees il faut utiliser MergeArea.

exemple si tu veux copier coller en valeur la cellule A1 de ta feuille1 dans ta cellule fusionnee correspondans a ta plage H1:H3 il faut faire:

Code:

---

1 2 3 4 5 6 7

sub copiecollevaleur()   Feuil1.Cells(1,1).copy Feuil1.Cells(1,8).MergeArea.PasteSpecial xlValue   end sub

---

si tu souhaites passer par une variable toujours avec les memes cellules:

Code:

---

1 2 3 4 5 6 7 8 9

sub copiecollevaleur() 'j'ai mis la variable en tant que string (texte) car dans des numeros d'immatriculation il y a des lettres egalement, donc si on parle du numero dans son integralite, il faut le mettre en tant que texte dim NumMatricule as string   NumMatricule = Feuil1.Cells(1,1).Value Feuil1.Cells(1,8) = NumMatricule ' tu peux mettre aussi avec MergeArea ca marche egalement: Feuil1.Cells(1,8).MergeArea = NumMatricule   end sub

---

vanhoa

Merci beaucoup !! Ca marche !!:P:P !

Bonne journée!