Discussion :

[backx3]

Bonjour bonjour,
Je galère sur un problème depuis ce matin et je n'ai toujours pas trouvé de solution.. Je m'en remets donc à vos talents de programmeur !

Voici mon problème :

J'ai deux fichiers excel, un avec en colonne A un n° de question et en colonne AO une date prévisionnelle (c'est ça qu'il faut copier/coller)

Le deuxième fichier est le meme avec en colonne A un n° de question et en colonne S une date prévisionnelle (qui est mentionnée, ou non)

J'aimerais faire une boucle en vba ou alors une formule qui me permette de copier/coller la date prévisionnelle mentionnée dans le 2eme fichier dans le premier en fonction du n° de question.

Le but étant d'avoir les meme données sur les deux fichiers.

Je sais pas si c'est assez clair, je mets deux fichiers sans les données confidentiels en PJ.

Merci d'avance !

[goldstar]

Bonjour,

Un truc du genre:

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
26
27
28
29
30
 
Sub test()
 
Dim cpt_l As Integer
Dim premierFichier As String, deuxiemeFichier As String
Dim datePrevi As Date, numQuestion As String
 
premierFichier = "Premier_fichier.xlsx"
deuxiemeFichier = "Deuxieme_fichier.xlsx"
 
For cpt_l = 6 To Workbooks(deuxiemeFichier).Sheets("Feuil").Range("a" & Rows.Count).End(xlUp).Row
    If Workbooks(deuxiemeFichier).Sheets("Feuil").Cells(cpt_l, 2) <> "" Then
        datePrevi = Workbooks(deuxiemeFichier).Sheets("Feuil").Cells(cpt_l, 2)
        numQuestion = Workbooks(deuxiemeFichier).Sheets("Feuil").Cells(cpt_l, 1)
 
        'Recherchde de la question dans le premier fichier
        Set R = Workbooks(premierFichier).Sheets("Feuil").Range("A:A").Find(numQuestion, lookat:=xlWhole)
 
 
        If Not R Is Nothing Then
            Workbooks(premierFichier).Sheets("Feuil").Cells(R.Row, 2) = numQuestion
        End If
 
 
    End If
Next cpt_l
 
MsgBox "TRAITEMENT TERMINE"
 
End Sub

Cordialement,

[backx3]

Merci pour ta réponse !

Saurais-tu me dire ce que c'est cpt_1 ? Parce que je vois que c'est un compteur mais de quel fichier ?

Et je pense que c'est pas normal qu'après le If, ça passé direct au dernier End If, sachant que j'ai mis plusieurs numéros de question identiques sur les deux fichiers exprès..

En fait j'ai l'impression que cette ligne ne passé pas :

Code :

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

    If Workbooks(deuxiemeFichier).Sheets("Feuil1").Cells(cpt_l, 2) <> "" Then

Parce que meme si il y a une valeur ça me renvoit direct au End If, je comprends pas pourquoi pourtant je vérifie, par exemple, j'ai une valeur en colonne 2 ligne 19 dans le deuxième fichier, je fais une execution pas à pas et quand cpt_1 vaut 19, le If ne passe pas....

Moi pas comprendre...

[goldstar]

Bonjour,

Désolé je me suis un peu emballé.

cpt_l correspond au parcours des lignes du deuxieme fichier.

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
26
27
28
29
30
31
 
 
Sub test()
 
Dim cpt_l As Integer
Dim premierFichier As String, deuxiemeFichier As String
Dim datePrevi As Date, numQuestion As String
 
premierFichier = "Premier_fichier.xlsx"
deuxiemeFichier = "Deuxieme_fichier.xlsx"
 
For cpt_l = 6 To Workbooks(deuxiemeFichier).Sheets("Feuil1").Range("a" & Rows.Count).End(xlUp).Row
    If Workbooks(deuxiemeFichier).Sheets("Feuil1").Cells(cpt_l, 19) <> "" Then
        datePrevi = Workbooks(deuxiemeFichier).Sheets("Feuil1").Cells(cpt_l, 19)
        numQuestion = Workbooks(deuxiemeFichier).Sheets("Feuil1").Cells(cpt_l, 1)
 
        'Recherchde de la question dans le premier fichier
        Set R = Workbooks(premierFichier).Sheets("Feuil1").Range("A:A").Find(numQuestion, lookat:=xlWhole)
 
 
        If Not R Is Nothing Then
            Workbooks(premierFichier).Sheets("Feuil1").Cells(R.Row, 41) = datePrevi
        End If
 
 
    End If
Next cpt_l
 
MsgBox "TRAITEMENT TERMINE"
 
End Sub

le code fonctionne chez moi.

Cordialement,

[backx3]

C'est parfaaaait !

Je t'embête juste avec une petite dernière question si tu le veut bien, pourquoi 19 et 41 ?

A quoi correspondent-ils ?

Merci encore, tu me sauve la vie

[goldstar]

19 correspond à la colonne S et 41 à la colonne AO.

Cordialement,