Bonjour,
Voici mon souci du jour:
J'ai 3 onglets dans un fichier Excel
Je cherche à corréler mes 3 onglets (ONG1, ONG2, ONG3) en un seul (dans un 4ème que j'appelle "Global").
Je viens d'abord copier ONG1 dans "Global".
La colonne D de l'onglet "Global" contient désormais une chaine alphanumérique contenant un nombre (ce nombre varie avec le n° de la ligne) .... je veux compléter ma ligne de "Global" avec des données de ONG2 dont la colonne F contient le nombre trouvé dans chaque ligne de "Global".
Chaque onglet n'a pas le même nombre de colonne et toutes les valeurs n'ont pas forcément de correspondances.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| For nx = 2 To Nb_Lignes
For ny = 2 To Nb_Lignes
If (Sheets("Global").Range("H" & nx) Like Sheets("ONG2").Range("F" & ny)) Then
Sheets("Global").Range("J" & nx).Select
Selection = Sheets("ONG2").Range("F" & ny)
Sheets("Global").Range("K" & nx).Select
Selection = Sheets("ONG2").Range("G" & ny)
Sheets("Global").Range("L" & nx).Select
Selection = Sheets("ONG2").Range("AQ" & ny)
Sheets("Global").Range("M" & nx).Select
Selection = Sheets("ONG2").Range("AT" & ny)
End If
End If
Next ny
Next nx |
J'ai ce genre de code ... mais je n'arrive pas à mes fins.
Après je souhaite faire un peu la même chose entre Global et ONG3 en venant cette fois-ci comparer 2 chaines alphanumériques qui contiendrait le même nombre.
Merci de vos lumières ... en espérant ne pas avoir été trop brouillon dans mes explications.
Nico
En fait mon principal problème réside dans la condition:
If (Sheets("Global").Range("H" & nx) Like Sheets("ONG2").Range("F" & ny)) Then
Et donc la façon de comparer des chaines alphanumériques entre elles.
Par exemple __145abc et 145 ou _145ef et ab145cd
Partager