Discussion :

[hassane991]

Bonjour à tous
J'ai deux classeurs ayant pour nom respectivement "inman" et "test".
Jai besoin de comparer la valeur de la cellule A1 du classeur "inmac" à la plage ("A2:AF2") du classeur "test" de la feuille "synthese" en VBA;
si la valeur de A1 correspond à une valeur de la plage ("A2:AF2") alors qu'il copie la plage ("A2:A19") du fichier "inmac" et qu'il colle dans "test" en bas de la cellule corresponde à la valeur de A1 du fichier "inmac" .
Merci d'avance à tous et je conte sur votre réactivité.
Cdlt!!!!!!!!!!!!

voici ce que j'ai essayer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer
For i = 1 To i = 30
If Workbooks("inmac").Worksheets("feuil1").Range("A1") = Workbooks("test").Worksheets("Synthese").Range("A2:AF2") Then
Range("A2:A19").Select
Selection.Copy
Workbooks("test").Activate
Cells(i, 4).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
End If
 
End Sub

[Marc-L]

Bonjour,

conformément aux règles du forum, merci de poster le code entrepris (et balisé via l'icône dédiée #) …

Sinon commencer par le tutoriel Excel et l'enregistreur de macro.


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[hassane991]

voici ce que j'ai essayer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer
For i = 1 To i = 30
If Workbooks("inmac").Worksheets("feuil1").Range("A1") = Workbooks("test").Worksheets("Synthese").Range("A2:AF2") Then
Range("A2:A19").Select
Selection.Copy
Workbooks("test").Activate
Cells(i, 4).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
End If
 
End Sub

[Marc-L]

[…] et qu'il colle dans "test" en bas de la cellule corresponde à la valeur de A1 du fichier "inmac" .

Incompréhensible ! Reformuler clairement la destination de la copie …

[joe.levrai]

Bonjour,

un exemple d'utilisation de Find

regarde l'aide afin de paramétrer correctement les arguments en fonction de tes souhaits

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim ShSource As Worksheet
Dim ShDest As Worksheet
Dim Resultat As Range
 
Set ShSource = Workbooks("inmac").Worksheets("feuil1")
Set ShDest = Workbooks("test").Worksheets("Synthese")
 
Set Resultat = ShDest.Range("A2:AF2").Find(ShSource.Range("A1").Value, , xlWhole, xlValues)
If Not Resultat Is Nothing Then ShSource.Range("A2:A19").Copy Resultat.Offset(1, 0)
 
End Sub