Discussion :

[sébastien1208]

Bonjour,

j'aimerai savoir comment faire pour faire ceci

exemple

sur feuille 1

filtrer colonne 50 NON VIDE

SI VALEUR COLONNE B = 11 COMPARER VALEUR AVEC COLONNE C SI ON TROUVE LA VALEUR 11 ALORS
VENIR COPIER LA VALEUR DE LA COLONNE H DANS LA COLONNE D

idem pour les colonnes51 52 53 54 etc jusqu'a la dernière colonne du tableau qui peut varier

classeur 1 pour exemple en copieClasseur1.xlsx

[Menhir]

Pour la troisième fois : lis ceci : https://www.developpez.net/forums/d8...s-discussions/

[a_diard]

Je n'ai pas tout compris à la demande

"je n'ai pas ouvert le fichier joint"


ci dessous un exercice par rapport à ce que j'ai compris,
en considérant que le tableau démarre en "A1"
à adapter si le tableau démarre ailleurs.

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
 
Sub Macro1()
'
ligne = Range("A1").CurrentRegion.Rows.Count 'dernière ligne du tableau
'colonne = Range("A1").CurrentRegion.Columns.Count'dernière colonne du tableau
'au besoin pour traiter plusieurs colonnes.
 
For numligne = 1 To ligne
'si la colonne 50 n'est pas vide (plus d'un caractère dans la cellule)
If Len(Cells(numligne, 1).Value) >= 1
'si la colonne 2 et la colonne 3 sont égales à 11
'SI VALEUR COLONNE B = 11 COMPARER VALEUR AVEC COLONNE C SI ON TROUVE LA VALEUR 11 ALORS
If Cells(ligne, 2) = 11 And Cells(ligne, 3) = 11 Then
'COPIER LA VALEUR DE LA COLONNE H DANS LA COLONNE D
Cells(ligne, 4).Value = Cells(ligne, 8).Value
End If
End If
Next
End Sub

Si je suis complètement à côté de la plaque, tu me le dis.

Bonne journée.