Discussion :

[starrlaz]

Bonjour,

Quelqu'un peut m'aider à résoudre le problème ci-dessous ?
je voudrais faire un copier / coller d'un point A à un point B.

Ma macro fonctionne mais lorsque je fais un trie ou un filtre, la macro copie bien les données mais les colle sans vérifier s'il s'agit du bon numéro d'affaire. (Je ne sais pas écrire cette condition)

Dans l’éditeur, la macro se trouve dans la feuille 1 et en bas de la page.

Pour activer la macro, il faut cliquer sur le bouton marche / arrêt.

J'ai besoin de votre aide s'il vous plait.

Merci,

[Malick]

Bienvenue sur Developpez.com.

Il y a peu de personnes qui ouvrent les pièces jointes, surtout le format Xlsm.

Il serait plus judicieux de poster directement votre code en utilisant la balises # prévue à cet effet ; ainsi vous aurez plus de chance d'avoir des réponses.

démonstration de l'utilisation du bouton code (#)

Malick

[starrlaz]

Bonjour,

Merci de votre retour,

voici le code:
je compte le dupliquer pour d'autres cellules à copier.

Merci,

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
Dim ligne As Integer
Dim colonne As Integer
If Not Application.Intersect(Target, Columns("a:f")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
 
End If
 
If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
For i = 2 To Sheets("En cours").Range("a" & Rows.Count).End(xlUp).Row
If Sheets("En cours").Cells(i, 3) = Cells(ligne, 3) Then
Sheets("En cours").Cells(i, 52) = Target
End If
Next i
End If
 
If Not Application.Intersect(Target, Columns("c")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
For i = 2 To Sheets("En cours").Range("c" & Rows.Count).End(xlUp).Row
If Sheets("En cours").Cells(i, 3) = Cells(ligne, 3) Then
Sheets("En cours").Cells(i, 53) = Target
End If
Next i
End If
 
Sub end