bonjour à tous !
j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
meilleure façon de faire ?
voici la base macro :
===== > début :
Dim rg, rg2 As Range
Dim CodeArt As String
Dim DescArt As String
Dim Qte As Double
Dim i As Integer
Dim IndiceEnCours As Integer
Dim Feuille As Worksheet
Dim bFeuilleStock As Boolean
suite qui pose problème :
' On traite toutes les cellules
For i = rg2.Row + 1 To rg.Row - 1
' On récupère le code article
CodeArt = Cells(i, rg2.Column)
======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
' On récupère la description
DescArt = Cells(i, rg2.Column + 2)
' On récupère la quantité
Qte = Cells(i, rg2.Column + 3)
Etc...
====== > En fait je voudrais mettre :
If CodeArt DIFFERENT DE "A","B","AC","BC","-"
donc 5 arguments différents
et je n'arrive pas à concrétiser ce code !!!!
d'avance merci pour votre aide
Françoise
bonjour à tous !
j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
meilleure façon de faire ?
voici la base macro :
===== > début :
Dim rg, rg2 As Range
Dim CodeArt As String
Dim DescArt As String
Dim Qte As Double
Dim i As Integer
Dim IndiceEnCours As Integer
Dim Feuille As Worksheet
Dim bFeuilleStock As Boolean
suite qui pose problème :
' On traite toutes les cellules
For i = rg2.Row + 1 To rg.Row - 1
' On récupère le code article
CodeArt = Cells(i, rg2.Column)
======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
' On récupère la description
DescArt = Cells(i, rg2.Column + 2)
' On récupère la quantité
Qte = Cells(i, rg2.Column + 3)
Etc...
====== > En fait je voudrais mettre :
If CodeArt DIFFERENT DE "A","B","AC","BC","-"
donc 5 arguments différents
et je n'arrive pas à concrétiser ce code !!!!
d'avance merci pour votre aide
Françoise
bonjour à tous !
j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
meilleure façon de faire ?
voici la base macro :
===== > début :
Dim rg, rg2 As Range
Dim CodeArt As String
Dim DescArt As String
Dim Qte As Double
Dim i As Integer
Dim IndiceEnCours As Integer
Dim Feuille As Worksheet
Dim bFeuilleStock As Boolean
suite qui pose problème :
' On traite toutes les cellules
For i = rg2.Row + 1 To rg.Row - 1
' On récupère le code article
CodeArt = Cells(i, rg2.Column)
======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
' On récupère la description
DescArt = Cells(i, rg2.Column + 2)
' On récupère la quantité
Qte = Cells(i, rg2.Column + 3)
Etc...
====== > En fait je voudrais mettre :
If CodeArt DIFFERENT DE "A","B","AC","BC","-"
donc 5 arguments différents
et je n'arrive pas à concrétiser ce code !!!!
d'avance merci pour votre aide
Françoise
Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== > > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== > > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de news:
3581C3DE-199B-4BA6-9424-C8C539FF5F2C@microsoft.com...
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== > > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== > > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== > > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== > > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
> En fait je voudrais mettre :
If CodeArt DIFFERENT DE "A","B","AC","BC","-"
donc 5 arguments différents
et je n'arrive pas à concrétiser ce code !!!!
> En fait je voudrais mettre :
If CodeArt DIFFERENT DE "A","B","AC","BC","-"
donc 5 arguments différents
et je n'arrive pas à concrétiser ce code !!!!
> En fait je voudrais mettre :
If CodeArt DIFFERENT DE "A","B","AC","BC","-"
donc 5 arguments différents
et je n'arrive pas à concrétiser ce code !!!!
> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Encore merci !
"garnote" a écrit :Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Encore merci !
"garnote" a écrit :
Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de news:
3581C3DE-199B-4BA6-9424-C8C539FF5F2C@microsoft.com...
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Encore merci !
"garnote" a écrit :Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Je ne sais pas.
Une autre façon de faire :
Tu nommes, par exemple « choix » une plage contenant A, B, AC, BC
et :
If IsError(Application.Match(CodeArt, Range("choix"), 0)) Then
MsgBox "Différent de ..."
'...
'...
End If
Pratique si ta liste de valeurs s'aallonge.
Serge
"Françoise" a écrit dans le message de news:Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Encore merci !
"garnote" a écrit :Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >>> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >>> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Je ne sais pas.
Une autre façon de faire :
Tu nommes, par exemple « choix » une plage contenant A, B, AC, BC
et :
If IsError(Application.Match(CodeArt, Range("choix"), 0)) Then
MsgBox "Différent de ..."
'...
'...
End If
Pratique si ta liste de valeurs s'aallonge.
Serge
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de news:
847F45A2-0458-4ACF-9DDA-B030541B7CD0@microsoft.com...
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Encore merci !
"garnote" a écrit :
Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de news:
3581C3DE-199B-4BA6-9424-C8C539FF5F2C@microsoft.com...
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >>> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >>> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Je ne sais pas.
Une autre façon de faire :
Tu nommes, par exemple « choix » une plage contenant A, B, AC, BC
et :
If IsError(Application.Match(CodeArt, Range("choix"), 0)) Then
MsgBox "Différent de ..."
'...
'...
End If
Pratique si ta liste de valeurs s'aallonge.
Serge
"Françoise" a écrit dans le message de news:Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure ?
Encore merci !
"garnote" a écrit :Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >>> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >>> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
Et une dernière remarque :
Cette approche et celle de Coetera ne font pas
la différence entre majuscule et minuscule.
BC, bC, bc, Bc; c'est pareil.
Serge
"garnote" a écrit dans le message de news: %23Ik$
>> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
> Je ne sais pas.
>
> Une autre façon de faire :
> Tu nommes, par exemple « choix » une plage contenant A, B, AC, BC
> et :
>
> If IsError(Application.Match(CodeArt, Range("choix"), 0)) Then
> MsgBox "Différent de ..."
> '...
> '...
> End If
>
> Pratique si ta liste de valeurs s'aallonge.
>
> Serge
>
>
>
> "Françoise" a écrit dans le message de news:
>
>> Merci Serge,
>>
>> ça marche impec, en fait la solution était simple !
>> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
>> Encore merci !
>>
>> "garnote" a écrit :
>>
>>> Bonjour,
>>>
>>> Essaie ceci :
>>>
>>> Sub Test()
>>> If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
>>> And CodeArt <> "BC" And CodeArt <> "-" Then
>>> MsgBox " Différent de A, B, AC, BC et -"
>>> '...
>>> '...
>>> End If
>>> End Sub
>>>
>>> La macro fait la différence entre majuscule et minuscule.
>>>
>>>
>>> Serge
>>>
>>>
>>>
>>> "Françoise" a écrit dans le message de news:
>>>
>>> > bonjour à tous !
>>> >
>>> > j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
>>> > rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
>>> > meilleure façon de faire ?
>>> > voici la base macro :
>>> > ===== > >>> > début :
>>> > Dim rg, rg2 As Range
>>> > Dim CodeArt As String
>>> > Dim DescArt As String
>>> > Dim Qte As Double
>>> > Dim i As Integer
>>> > Dim IndiceEnCours As Integer
>>> > Dim Feuille As Worksheet
>>> > Dim bFeuilleStock As Boolean
>>> >
>>> > suite qui pose problème :
>>> > ' On traite toutes les cellules
>>> > For i = rg2.Row + 1 To rg.Row - 1
>>> > ' On récupère le code article
>>> > CodeArt = Cells(i, rg2.Column)
>>> > ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
>>> > ' On récupère la description
>>> > DescArt = Cells(i, rg2.Column + 2)
>>> > ' On récupère la quantité
>>> > Qte = Cells(i, rg2.Column + 3)
>>> > Etc...
>>> > ====== > >>> > En fait je voudrais mettre :
>>> > If CodeArt DIFFERENT DE "A","B","AC","BC","-"
>>> > donc 5 arguments différents
>>> > et je n'arrive pas à concrétiser ce code !!!!
>>> >
>>> > d'avance merci pour votre aide
>>> > Françoise
>>>
>>>
>>>
>
>
Et une dernière remarque :
Cette approche et celle de Coetera ne font pas
la différence entre majuscule et minuscule.
BC, bC, bc, Bc; c'est pareil.
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news: %23Ik$ZHUhJHA.500@TK2MSFTNGP06.phx.gbl...
>> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
> Je ne sais pas.
>
> Une autre façon de faire :
> Tu nommes, par exemple « choix » une plage contenant A, B, AC, BC
> et :
>
> If IsError(Application.Match(CodeArt, Range("choix"), 0)) Then
> MsgBox "Différent de ..."
> '...
> '...
> End If
>
> Pratique si ta liste de valeurs s'aallonge.
>
> Serge
>
>
>
> "Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de news:
> 847F45A2-0458-4ACF-9DDA-B030541B7CD0@microsoft.com...
>> Merci Serge,
>>
>> ça marche impec, en fait la solution était simple !
>> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
>> Encore merci !
>>
>> "garnote" a écrit :
>>
>>> Bonjour,
>>>
>>> Essaie ceci :
>>>
>>> Sub Test()
>>> If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
>>> And CodeArt <> "BC" And CodeArt <> "-" Then
>>> MsgBox " Différent de A, B, AC, BC et -"
>>> '...
>>> '...
>>> End If
>>> End Sub
>>>
>>> La macro fait la différence entre majuscule et minuscule.
>>>
>>>
>>> Serge
>>>
>>>
>>>
>>> "Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de news:
>>> 3581C3DE-199B-4BA6-9424-C8C539FF5F2C@microsoft.com...
>>> > bonjour à tous !
>>> >
>>> > j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
>>> > rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
>>> > meilleure façon de faire ?
>>> > voici la base macro :
>>> > ===== > >>> > début :
>>> > Dim rg, rg2 As Range
>>> > Dim CodeArt As String
>>> > Dim DescArt As String
>>> > Dim Qte As Double
>>> > Dim i As Integer
>>> > Dim IndiceEnCours As Integer
>>> > Dim Feuille As Worksheet
>>> > Dim bFeuilleStock As Boolean
>>> >
>>> > suite qui pose problème :
>>> > ' On traite toutes les cellules
>>> > For i = rg2.Row + 1 To rg.Row - 1
>>> > ' On récupère le code article
>>> > CodeArt = Cells(i, rg2.Column)
>>> > ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
>>> > ' On récupère la description
>>> > DescArt = Cells(i, rg2.Column + 2)
>>> > ' On récupère la quantité
>>> > Qte = Cells(i, rg2.Column + 3)
>>> > Etc...
>>> > ====== > >>> > En fait je voudrais mettre :
>>> > If CodeArt DIFFERENT DE "A","B","AC","BC","-"
>>> > donc 5 arguments différents
>>> > et je n'arrive pas à concrétiser ce code !!!!
>>> >
>>> > d'avance merci pour votre aide
>>> > Françoise
>>>
>>>
>>>
>
>
Et une dernière remarque :
Cette approche et celle de Coetera ne font pas
la différence entre majuscule et minuscule.
BC, bC, bc, Bc; c'est pareil.
Serge
"garnote" a écrit dans le message de news: %23Ik$
>> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
> Je ne sais pas.
>
> Une autre façon de faire :
> Tu nommes, par exemple « choix » une plage contenant A, B, AC, BC
> et :
>
> If IsError(Application.Match(CodeArt, Range("choix"), 0)) Then
> MsgBox "Différent de ..."
> '...
> '...
> End If
>
> Pratique si ta liste de valeurs s'aallonge.
>
> Serge
>
>
>
> "Françoise" a écrit dans le message de news:
>
>> Merci Serge,
>>
>> ça marche impec, en fait la solution était simple !
>> une question subsidiaire, combien de conditions de ce type peut-on inclure ?
>> Encore merci !
>>
>> "garnote" a écrit :
>>
>>> Bonjour,
>>>
>>> Essaie ceci :
>>>
>>> Sub Test()
>>> If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
>>> And CodeArt <> "BC" And CodeArt <> "-" Then
>>> MsgBox " Différent de A, B, AC, BC et -"
>>> '...
>>> '...
>>> End If
>>> End Sub
>>>
>>> La macro fait la différence entre majuscule et minuscule.
>>>
>>>
>>> Serge
>>>
>>>
>>>
>>> "Françoise" a écrit dans le message de news:
>>>
>>> > bonjour à tous !
>>> >
>>> > j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
>>> > rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
>>> > meilleure façon de faire ?
>>> > voici la base macro :
>>> > ===== > >>> > début :
>>> > Dim rg, rg2 As Range
>>> > Dim CodeArt As String
>>> > Dim DescArt As String
>>> > Dim Qte As Double
>>> > Dim i As Integer
>>> > Dim IndiceEnCours As Integer
>>> > Dim Feuille As Worksheet
>>> > Dim bFeuilleStock As Boolean
>>> >
>>> > suite qui pose problème :
>>> > ' On traite toutes les cellules
>>> > For i = rg2.Row + 1 To rg.Row - 1
>>> > ' On récupère le code article
>>> > CodeArt = Cells(i, rg2.Column)
>>> > ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
>>> > ' On récupère la description
>>> > DescArt = Cells(i, rg2.Column + 2)
>>> > ' On récupère la quantité
>>> > Qte = Cells(i, rg2.Column + 3)
>>> > Etc...
>>> > ====== > >>> > En fait je voudrais mettre :
>>> > If CodeArt DIFFERENT DE "A","B","AC","BC","-"
>>> > donc 5 arguments différents
>>> > et je n'arrive pas à concrétiser ce code !!!!
>>> >
>>> > d'avance merci pour votre aide
>>> > Françoise
>>>
>>>
>>>
>
>
> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure
?
Encore merci !
"garnote" a écrit :Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message
de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure
?
Encore merci !
"garnote" a écrit :
Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message
de news:
3581C3DE-199B-4BA6-9424-C8C539FF5F2C@microsoft.com...
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
Merci Serge,
ça marche impec, en fait la solution était simple !
une question subsidiaire, combien de conditions de ce type peut-on inclure
?
Encore merci !
"garnote" a écrit :Bonjour,
Essaie ceci :
Sub Test()
If CodeArt <> "A" And CodeArt <> "B" And CodeArt <> "AC" _
And CodeArt <> "BC" And CodeArt <> "-" Then
MsgBox " Différent de A, B, AC, BC et -"
'...
'...
End If
End Sub
La macro fait la différence entre majuscule et minuscule.
Serge
"Françoise" a écrit dans le message
de news:
> bonjour à tous !
>
> j'ai une macro qui fonctionne bien avec 2 arguments, mais si je veux en
> rajouter, ça ne marche plus, quelqu'un peut il me dire quelle est la
> meilleure façon de faire ?
> voici la base macro :
> ===== >> > début :
> Dim rg, rg2 As Range
> Dim CodeArt As String
> Dim DescArt As String
> Dim Qte As Double
> Dim i As Integer
> Dim IndiceEnCours As Integer
> Dim Feuille As Worksheet
> Dim bFeuilleStock As Boolean
>
> suite qui pose problème :
> ' On traite toutes les cellules
> For i = rg2.Row + 1 To rg.Row - 1
> ' On récupère le code article
> CodeArt = Cells(i, rg2.Column)
> ======>If CodeArt <> "A" And CodeArt <> "-" Or CodeArt <> "B" Then
> ' On récupère la description
> DescArt = Cells(i, rg2.Column + 2)
> ' On récupère la quantité
> Qte = Cells(i, rg2.Column + 3)
> Etc...
> ====== >> > En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
>
> d'avance merci pour votre aide
> Françoise
Merci à tous les deux, j'ai bien saisi la méthode et cela répond
parfaitement
à mes questions.
c'est super !
"Coetera" a écrit :> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de
syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
Merci à tous les deux, j'ai bien saisi la méthode et cela répond
parfaitement
à mes questions.
c'est super !
"Coetera" a écrit :
> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de
syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
Merci à tous les deux, j'ai bien saisi la méthode et cela répond
parfaitement
à mes questions.
c'est super !
"Coetera" a écrit :> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de
syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
Bonsoir,
Personnellement, j'aime assez utiliser la structure "Selon le cas" qui permet pas mal de possibilités
Select case CodeArt
Case "A","B","AC","BC"
'instructions
Case 1 to 9
'instructions
Case else
'instructions
End Select
Pounet95
"Françoise" a écrit dans le message de
news:Merci à tous les deux, j'ai bien saisi la méthode et cela répond parfaitement
à mes questions.
c'est super !
"Coetera" a écrit :> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
Bonsoir,
Personnellement, j'aime assez utiliser la structure "Selon le cas" qui permet pas mal de possibilités
Select case CodeArt
Case "A","B","AC","BC"
'instructions
Case 1 to 9
'instructions
Case else
'instructions
End Select
Pounet95
"Françoise" <Franoise@discussions.microsoft.com> a écrit dans le message de
news:31BB01E9-C6BF-4D88-B859-855ED40A4486@microsoft.com...
Merci à tous les deux, j'ai bien saisi la méthode et cela répond parfaitement
à mes questions.
c'est super !
"Coetera" a écrit :
> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc
Bonsoir,
Personnellement, j'aime assez utiliser la structure "Selon le cas" qui permet pas mal de possibilités
Select case CodeArt
Case "A","B","AC","BC"
'instructions
Case 1 to 9
'instructions
Case else
'instructions
End Select
Pounet95
"Françoise" a écrit dans le message de
news:Merci à tous les deux, j'ai bien saisi la méthode et cela répond parfaitement
à mes questions.
c'est super !
"Coetera" a écrit :> En fait je voudrais mettre :
> If CodeArt DIFFERENT DE "A","B","AC","BC","-"
> donc 5 arguments différents
> et je n'arrive pas à concrétiser ce code !!!!
**************
Si la liste risque d'être longue, mieux vaut passer par ce type de syntaxe :
leTableau = Array("A", "B", "C", "AC", "BC", "-")
If IsError(Application.Match(CodeArt , leTableau, 0)) Then ...
Etc