Discussion :

[Numenor_Illuvatar]

Bonjour à toutes et à tous,

Cela va faire deux jours que je suis bloqué sur un soucis personnel, je suis retraité et apprends le VBA depuis quelques mois.

J'aimerais gérer les comptes en suspens quotidiens de ma petite affaire et certains suspens quotidiens se répètent et je dois transférer des commentaires (colonne A) sur les suspens correspondants qui se répètent (le nb des suspens est variable et donc ils changent de ligne)
Je dois procéder par un match des valeurs identiques des lignes (valeurs uniques par ligne) , pour éviter un copier coller rébarbatif et très ennuyant des commentaires (parfois 120 lignes de suspens) je cherche à l'automatiser par une macro.


Donc le but de ma macro est de transférer les valeurs de la colonne A de la feuille précédente vers la colonne A de la feuille suivante dans les lignes identiques . Exemple : la valeur de la ligne 2 feuille 1 est identique à la ligne 5 feuille 2, donc valeur cellule A2 feuille 1 ira dans cellule A5 feuille 2.

Voici la macro que j'ai tenté de faire mais Excel me dit qu'il y a un qualificateur incorrect ..si ma macro vous semble vulgaire ce n'est pas étonnant j'essaye de me former en lisant des topics sur les forums comme celui-ci donc il y a certaines choses dont je n'ai pas compris le fonctionnement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim com As String
 
Dim ligne As Range
 
For Each ligne In Sheets
 
 
ligne = Range("B1:" & Split(Feuil1.UsedRange.Address, ":")(1)).Value
 
 
    com = Columns(1).Value
 
If ligne.Sheets(ActiveSheet.Index - 1).Value = ligne.Sheets(ActiveSheet).Value Then
 
    com.Sheets(ActiveSheet.Index - 1).Value = com.Sheets(ActiveSheet.Index).Value
 
 
End If
Next ligne
 
 
 
 
 
End Sub

Je vous remercie par avance,

Marc

[mat955]

Bonjour,

Pourquoi ne pas passer par une RECHERCHEV ?

Pour chaque ligne de la Feuil2, faire une RECHERCHEV sur la Feuil1.
Si la valeur était déjà présente en Feuil1, alors le commentaire sera récupéré par la RECHERCHEV, si ce n'est pas le cas, la fonction renverra une erreur -> A corriger à l'aide de SIERREUR juste avant la RECHERCHEV.

[Numenor_Illuvatar]

Bonjour,

Pourquoi ne pas passer par une RECHERCHEV ?

Pour chaque ligne de la Feuil2, faire une RECHERCHEV sur la Feuil1.
Si la valeur était déjà présente en Feuil1, alors le commentaire sera récupéré par la RECHERCHEV, si ce n'est pas le cas, la fonction renverra une erreur -> A corriger à l'aide de SIERREUR juste avant la RECHERCHEV.

Bonjour,

Je vais regarder comment la Vlookup fonctionne du coup c'est bien ça ?



Marc

[mat955]

Oui, pour la version Anglaise, c'est bien VLookUp.