Discussion :

[casdidier]

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 !

[vanhoa]

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 :

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

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 :

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

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

[casdidier]

Merci beaucoup !! Ca marche !! !

Bonne journée!