Discussion :

[ivanG]

Bonjour !

Petit blocage sur une comparaison de donné afin de copier des valeurs.

J'ai 2 feuilles différentes :
- "HISTORIQUE_JOUR" -> Je cherche à afficher le nombre de besoins dans la colonne Besoins
- "Besoins" -> Données remplies par l'utilisateur

Je voudrais que les besoins de la feuille "Besoins" se retranscrive sur l'autre feuille (sans prendre en compte les doublons)

J'ai fait un code mais qui ne marche pas vraiment...

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
Private Sub CommandButton15_Click()
Application.ScreenUpdating = False
    Dim PlCol_1 As Range
    Dim PlCol_2 As Range
    Dim CelCol_1 As Range
    Dim CelCol_2 As Range
 
Sheets("HISTORIQUE_JOUR").Select 'Bidouille pour éviter une erreur qui m'obligeait à réaliser le Set d'une feuille en ayant cette meme feuille active
        Set PlCol_2 = Sheets("HISTORIQUE_JOUR").Range(Cells(8, 9), Cells(Rows.Count, 9).End(xlUp))
Sheets("Besoins").Select 'Idem que com précédent
        Set PlCol_1 = Sheets("Besoins").Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
 
     For Each CelCol_2 In PlCol_2
         Set CelCol_1 = Sheets("Besoins").Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Find(CelCol_2, , xlValues, xlWhole)
        If Not CelCol_1 Is Nothing Then
             CelCol_2.Offset(, 3).Value = CelCol_1.Offset(, 1).Value
         End If
     Next CelCol_2
Application.ScreenUpdating = True
End Sub

Voici un fichier joint (La disposition est faite exprés) : Comparaison.xls

Avez vous une idée pour corriger le code ?

Merci d'avance !

[Invité]

Bonjour,

Si j'ai bien compris le besoin, ton code est plutôt bien à quelques détails près.
Pour info, la bidouille que tu mentionnes n'en n'est pas une mais une syntaxe obligatoire. Par contre il n'est pas nécessaire de repréciser le nom de la feuille avant Range(.
Vois, le code ci-dessous et je te laisse chercher les différences avec le tien.
Bien sûr, reviens sur le forum si tu as un souci.

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
    Application.ScreenUpdating = False    Dim PlCol_1 As Range
    Dim PlCol_2 As Range
    Dim CelCol_1 As Range
    Dim CelCol_2 As Range
 
    Sheets("HISTORIQUE_JOUR").Select
    Set PlCol_2 = Range(Cells(2, 9), Cells(Rows.Count, 9).End(xlUp))
    Sheets("Besoins").Select
    Set PlCol_1 = Range(Cells(2, 1), Cells(Rows.Count, 2).End(xlUp))
    For Each CelCol_2 In PlCol_2
        Set CelCol_1 = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Find(CelCol_2, , xlValues, xlWhole)
        If Not CelCol_1 Is Nothing Then
            CelCol_2.Offset(, 3).Value = CelCol_1.Offset(, 1).Value
        End If
    Next CelCol_2
    Application.ScreenUpdating = True

Cordialement.
Jean-Claude

[casefayere]

Perso, je traduis par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
.....
With Sheets("HISTORIQUE_JOUR")
  Set PlCol_2 = .Range(.Cells(2, 9), .Cells(.Rows.Count, 9).End(xlUp))
End With
With Sheets("Besoins")
  Set plcol_1 = .Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp))
  For Each CelCol_2 In PlCol_2
    Set CelCol_1 = plcol_1.Find(CelCol_2, , xlValues, xlWhole)
    If Not CelCol_1 Is Nothing Then
      CelCol_2.Offset(, 3).Value = CelCol_1.Offset(, 1).Value
    End If
  Next CelCol_2
End With
.....

[ivanG]

Bonjour !

Merci beaucoup jcDSoft et casefayere, ca fonctionne nickel sur le fichier exemple.


Question : Si je veux lancer ce code en cliquant sur un bouton d'action, je mets le code dans le bouton d'action ou bien dans un module ? Parce que sur mon fichier original, le code que vous m'avez passé ne fonctionne pas... Donc je suis en train de me demander si je n'ai pas fait une erreure dans le paramétrages des Sub, Objet ou Procédure.

Merci encore et bonne journée !

[casefayere]

Bonjour,

tu as le choix, ou tu entres le code dans l'évènement "Click" du bouton, ou tu mets le code dans un module dont la procédure sera appelée par ton bouton

Code :

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

1
2
3
Private Sub CommandButton1_Click()
nomprocedure
End Sub

dans le module

Code :

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

1
2
3
Sub nomprocedure()
.......
End Sub

Si ça ne fonctionne pas sur ton fichier original, c'est qu'il y a une erreur quelque part, alors expliques-toi bien

Bon courage

[ivanG]

C'est bon j'ai trouvé...

...Erreur ridicule : j'avais plusieurs colonnes masquées donc le Offset (, 3) faisait référence à une colonne masquée.

Merci pour vos réponse !

Problème résolu