Bonjour à tous,
Je suis débutant et bloque depuis ce matin sur ma premiere tentative de VBA. En esperant que vous pourriez m'aider.
J'ai un classeur contenant 2 feuilles,
Dans la feuille1 j'ai un tableau avec x colonne qui repertorie des projets (colonnes: date de création, chef de projet, date de mise en prod, cout du projet .. etc), il contient la colonne ID (A) qui associe un numéro à chque projet. Et j'ai une colonne (D) vide que je dois completer.
Dans une deuxième feuille j'ai un autre tableau avec les informations manquantes: une colonne ID et une colonne (B) qui contient les info que je dois copier ds la colonne (D) de la feuille 1... j'espere que vous me suivez toujours!
Le problème c'est que dans la premiere feuille tous les projets sont recensé mais pas ds la deuxième donc je ne peux pas faire un bête copier/coller.
Voila mon code qui ne marche pas:
Lorsque je compile, excel surligne Public Sub cherche() et affiche: erreur de compilation, sub ou fonction non défini...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Sub cherche() 'J'identifie les projets identiques dans les 2 feuilles x = 1 For Each n In Sheet("data_fin").[a1:a370] If n = Sheet("list_po").Cells(x, 1) Then 'Je copie colle les colonnes Sheet("data_fin").Cells(n, 2) = Sheet("list_po").Cells(x, 25) End If x = x + 1 Next End Sub
En vous remerciant d'avance de votre aide !!!
Partager