Discussion :

[Nako_lito]

Bonjour a tous,

alors voila je souhaite tester plusieur valeur sur une cellule, et si elle aparait pas, déplacer la ligne de la cellule dans une autre feuille.

Juste le code du test sur lequel porte l'erreur 13.

Code :

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

1
2
3
4
5
If Cel.Text = ("50") Or ("55") Or ("BAMBI perd MAMAN") Or ("ISM") Or ("Kiri") Or ("Laser Quest") Or ("LASER ENTERTENEMENT") Or ("SOLIDAIRE") Or ("Babar et les joyeux lutins") Then
            Cel.EntireRow.Cut
            Sheets("Hors périm").Range("A" & i).Paste
            i = i + 1
End If

il me surligne la ligne du if en m'indiquant erreur d'exécution '13', en me balladant sur le net,j'ai vu que c'etais un pb d'incompatibilité ou de format. ce que je ne comprends pas, c'est que je met entre "" les valeur, donc il est censé tester la chaine de caractere.

Merci par avance.

[aalex_38]

Bonjour,

Si cel est un range, essai sans le .text :

Remplace :

Code :

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

Cel.Text

Remplace par :

Code :

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

Cel

[diude54]

Ta syntaxe est mauvaise, même si c'est du text, ce qui figure dans la cellule est .Value, sinon il faut que tu identifie ta cellule, à moins que tu soit dans une boucle du type

Code :

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

For Each Cell in Plage

Mais ça je peux pas deviner

Code :

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

1
2
3
4
5
6
7
If Cells(n° ligne, n° colonne).Value ="50" Or Cells(n° ligne, n° colonne).Value ="55" Or Cells(n° ligne, n° colonne).Value ="BAMBI perd MAMAN" Or Cells(n° ligne, n° colonne).Value ="ISM" Or Cells(n° ligne, n° colonne).Value ="Kiri" Or Cells(n° ligne, n° colonne).Value ="Laser Quest" Or Cells(n° ligne, n° colonne).Value ="LASER ENTERTENEMENT" Or Cells(n° ligne, n° colonne).Value ="SOLIDAIRE" Or Cells(n° ligne, n° colonne).Value "Babar et les joyeux lutins" Then
            Rows(n° de ligne).Cut
'ou
            Cells(n° ligne, n° colonne).EntireRow.Cut
            Sheets("Hors périm").Range("A" & i).Paste
            i = i + 1
End If

[Nako_lito]

pardon j'ai pas tout mis :

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
Public Sub deplacement()
    Sheets.Add After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "Hors périm"
    Dim maRange As Range, Cel As Range
    Dim i As Integer
    Set maRange = Feuil1.Range("B2:B" & derniereLigneFeuil1)
    i = 2
    For Each Cel In maRange
        If Cel = ("50") Or ("55") Or ("CMS Vacances SNC") Or ("ISM") Or ("Kyrielles") Or ("Laser Contact") Or ("LASER SYMAG") Or ("SODITER") Or ("LaSer Symag Polska") Then
            Cel.EntireRow.Cut
            Sheets("Hors périm").Range("A" & i).Paste
            i = i + 1
        End If
    Next Cel
End Sub

Voila toute la methode qui donc créé un nouvel onglet, va chercher des lignes dans la feuille 1 et les copie dans ce nouvel onglet.

[diude54]

Je vois 2 erreurs:
Il faut que tu définissent DErligneFeuil1:

Code :

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

DerligneFeuil1= Worksheets(1).Range("A65536").End(XlUp).Row

Ensuite il faut que tu remettes le "Cell=" à chaque condition:

Code :

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

If Cel="50" Or Cell="55" Or...Then

EDIT:

Juste une petite remarque si je peux me permettre:

N'utilise pas de nom ambigu genre "maRange", préfère plutôt "MaPlage" ou "Plage".
Ensuite ça c'est perso, "DernièreLigneFeuil1" est un nom long, simplifie ça:
"DerLigF1"

[Krovax]

Bonjour rapidement,
Pour faire l'erreur d'execution 13

Code :

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

1
2
3
Sub er13()
If "a" = "a" Or "b" Then MsgBox "ok"
End Sub

Pour ne pas la faire

Code :

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

1
2
3
Sub er13()
If "a" = "a" Or "a"="b" Then MsgBox "ok"
End Sub

Donc

Code :

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

if Cel = ("50") Or Cel =("55") Or Cel =...

edit désolé diude je faisais deux chose a la fois et j'ai pas rafraichi

[diude54]

edit désolé diude je faisais deux chose a la fois et j'ai pas rafraichi

C'est pas grave, ce genre de situations fréquentes il faut le dire prouvent le dynamisme de ce forum et c'est une bonne chose je pense.