Discussion :

[Elian1210]

Bonjour à tous ,

J'ai une erreur 1004 avec la propriété find next.
J'ai pourtant repris le code issu du support Microsoft que j'ai adapté.

Pouvez m'aider à trouver l'erreur svp ?

Merci d'avance !

En gros, je récupère via une combobox la valeur d'un emplacement.
Je veux chercher cette valeur dans la feuille "Réf". Le problème a lieu sur la partie en gras

Le code est :

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
    emplacement = ComboBoxRéférence.Value
    
    With Worksheets("Réf")
        Set plage = .Range("b2:z1000")
        Set c = plage.Find(emplacement, LookIn:=xlValues)
    
        plage.Select
        If Not c Is Nothing Then
            adresse = c.Address
            Do
                
                col = c.Column
                ligne = c.Row
                i = col
                While Worksheets("Réf").Cells(ligne, i) <> ""
                    i = i + 1
                Wend
                Range(Cells(ligne, col + 1), Cells(ligne, i)).Cut
                Worksheets("Réf").Paste Destination:=Range(Cells(ligne, col), Cells(ligne, i - 1))
                Set c = plage.FindNext(c)
            Loop While Not c Is Nothing And c.Address <> adresse
        End If
        
    End With

[Docmarti]

Bonjour.

Il semble que le Paste précédé d'un Cut détruise les variables se référant au champ Destination.

Remplace Cut par Copy.

[casefayere]

Bonjour,

Bonjour.

Il semble que le Paste précédé d'un Cut détruise les variables se référant au champ Destination.

Remplace Cut par Copy.

si la raison est celle-ci, je mettrais

Code :

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

1
2
3
4
....
Worksheets("Réf").Range(Cells(ligne, col), Cells(ligne, i - 1)) = Range(Cells(ligne, col + 1), Cells(ligne, i))
Range(Cells(ligne, col + 1), Cells(ligne, i)).Clear 'ou "ClearContents"
.....

tout dépend si les formats doivent être copiés

[Docmarti]

tout dépend si les formats doivent être copiés

Absolument.

Par contre, le Clear ne serait pas approprié dans son cas, car il copie les cellules sur la même ligne en décalant d'une cellule vers la gauche.

[Elian1210]

Bonjour et merci à vous deux pour vos réponses !
Le fait d'avoir remplacé par copy et ajouter les deux lignes proposées ne marchent toujours pas, le message d'erreur est différent.

Je joins le fichier au message, l'userform défectueux est le "SupprimerRéf".

Cordialement !

[Docmarti]

Quel est le nouveau message d'erreur et sur quelle ligne de code l'erreur survient-elle?

Code :

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

Loop While Not c Is Nothing And c.Address <> adresse

Comme tu supprimes toutes les valeurs trouvées, tu dois finir par avoir une erreur avec c.address.

Car si c = Nothing, la propriété c.Address n'existe pas.

Donc il faut remplacer par

Code :

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

Loop While Not c Is Nothing

qui va être vrai quand toutes les valeurs auront été supprimées.

[Elian1210]

Ca marche ! Un grand merci à vous deux !!!