probleme dans ce code

[zine pef]

Salut tout,tous,forum

j'ai un probleme dans ce code

Dim dl As Integer, x As Integer
With Sheets("feuil1")
dl = .Range("b" & .Rows.Count).End(xlUp).Row
For x = 4 To dl
If Left(Range("b" & x), 1) = "1" Then
.Range("k" & x) = .Range("j" & x) * 2
Else
.Range("k" & x) = .Range("j" & x) * 3
End If

Next x
End With
End Sub

j'explique
ce code fonctionne tres bien dans la feuille 1
je veux quil fonctionne aussi dans la feuille2;feuille3
mais je suis nul
aidez moi SVP

 

[Etienne2323]

Re : probleme dans ce code

Salut zine pef,
essaye ceci.

Dim Feuille(3) As Variant

Sub test()

Dim dl As Integer, x As Integer, i as Integer, x as Integer

Feuille(1) = "feuil1"
Feuille(2) = "feuil2"
Feuille(3) = "feuil3"

For i = 1 To 3
    With Sheets(Feuille(i))
        dl = .Range("b" & .Rows.Count).End(xlUp).Row
        For x = 4 To dl
            If Left(Range("b" & x), 1) = "1" Then
                .Range("k" & x) = .Range("j" & x) * 2
            Else
                .Range("k" & x) = .Range("j" & x) * 3
            End If
        Next x
    End With
Next i
End Sub

Bonne fin de journée !

Cordialement,

Étienne

 

[zine pef]

Re : probleme dans ce code

salut forum
un grand merci Etienne2323 pour ton aide

mais il ya une erreur

erreur d'exécution '9'
l'indice n'appartient pas à la sélection


With Sheets(Feuille(i))

 

[skoobi]

Re : probleme dans ce code

Bonjour le fil,

c'est que l'une des 3 feuilles ne s'appelle pas "feuil1", "feuil2" ou "feuil3".

 

[Etienne2323]

Re : probleme dans ce code

Salut zine pef,
tu peux toujours essayer avec ces petites modifications. Cela me parait un peu plus clair à l'écriture mais quand même, le code précédent fonctionne pour moi .

Dim Feuille(3) As Variant

Sub test()

Dim dl As Integer, x As Integer, i As Integer

Feuille(1) = "feuil1"
Feuille(2) = "feuil2"
Feuille(3) = "feuil3"

For i = 1 To 3
    Sheets(Feuille(i)).Select
        dl = Cells(65536, 1).End(xlUp).Row
        For x = 4 To dl
            If Left(Cells(x, 2).Value, 1) = "1" Then
                Cells(x, 11).Value = Cells(x, 10) * 2
            Else
                Cells(x, 11).Value = Cells(x, 10) * 2
            End If
        Next x
    End With
Next i
End Sub

Tu peux vérifier le nom des feuilles qui sont déclarées en début de code.

C'est certain que sans fichier, à tâton comme ça, c'est plus compliqué de mettre le doigt sur l'erreur.

Bonne continuité

Étienne

Edit : Salut skoobi. Bonne observation 😉 Bonne fin de soirée !

 

[zine pef]

Re : probleme dans ce code

merci
je n'ai pas fait attention du nom des feuilles

merci Étienne & skoobi
bonne nuit c'et régler