Macro fonction qui combine deux conditions

Version imprimable

11/01/2019, 11h01
Lordvoldman

1 pièce(s) jointe(s)

Macro fonction qui combine deux conditions

Bonjour,

Je suis assez novice sur les fonctions VBA, le plus souvent je travaille avec des SI et SIERREUR mais là j'ai besoin de passer à une fonction pour me faciliter la vie.

J'ai quatre colonnes : Colonne 1 (id) Colonne 2 Colonne 3 Colonne 4

je voudrai remplire la colonne 4 sous conditions de ce qui aura dans colonne 2 et colonne 3 combinés !
Voici un fichier excel ou je vous ai mis un exemple, merci d’avancePièce jointe 440507 de votre aide.
11/01/2019, 11h27
Trystan441
Bonjour à toi,

Je t'invite à lire ceci

https://www.developpez.net/forums/d8...s-discussions/

Pour faire ce que tu as besoin ça fonctionne quasiment comme sur les fonctions natives d'Excel
Code:

1 2 3 4 5 If 'Condition1' And/Or 'Condition2 'Procédure End if
11/01/2019, 11h31
Lordvoldman

Merci de la précieuse aide Trystan et bonne journée.

Dans l'attente d'une réponse un peu plus élaborée et expliqué, je vous remercie d'avance.
11/01/2019, 11h41
joe.levrai

Bonjour,

quelles seraient les conditions et actions à entreprendre ?

suivant la/les quantités, une structrue If/ElseIf/Else/End If ou Select Case sera privilégiées

voir même, si ce sont des conditions/actions plus basiques, en passant par l'injection d'une formule sur l'ensemble de la colonne 4, et remplacement des formules par leur valeur
11/01/2019, 11h58
Lordvoldman

Je voudrai vérifier avec un vlookup si un mot apparait dans la colonne 2 et si oui regarder si un autre mot apparait dans la colonne 3 et de ce fait remplir la colonne 4 avec un nombre désigné "1" par exemple.
de toute manière dans les colonnes 2 et 3 je ne peux avoir que 3 choses dans chacunes des deux : Colonne 2( "x";"y";vide) et colonne 3("a";"b";vide). et tout dépend de ce que j'aurai dans les deux pour remplire la colonne 4 qui pourrait donc avoir 4 valeurs differentes suivant les valeurs de col 2 et 3 ( 4 et pas 9 car si j'ai un vide je ne fais rien ).

un exemple adapté au classeur exemple, qui utilise une formule matricielle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim Plage As Range, Cell As Range
 
    With Feuil1.Cells(1, 1).CurrentRegion
        Set Plage = .Columns(4).Resize(.Rows.Count - 1, 1).Offset(1, 0)
    End With
 
    For Each Cell In Plage.Cells
        Cell.FormulaArray = "=IF(AND(COUNTIF(RC[-2],""*non*"")=0,COUNTIF(RC[-1],""*ok*"")=0),"""",SUM(IF(NOT(ISERROR(SEARCH(""non"",RC[-2]))),1,3))+SUM(IF(NOT(ISERROR(SEARCH(""ok"",RC[-1]))),0,1)))"
        Cell.Value = Cell.Value
    Next Cell
 
End Sub

avec une structure If/End if

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub toto()
Dim Plage As Range, Cell As Range, Compteur As Long
 
    With Feuil1.Cells(1, 1).CurrentRegion
        Set Plage = .Columns(4).Resize(.Rows.Count - 1, 1).Offset(1, 0)
    End With
 
    For Each Cell In Plage.Cells
        Compteur = 0
        If Cell.Offset(0, -2).Value Like "*non*" Then Compteur = 1 Else Compteur = 3
        If Not Cell.Offset(0, -1).Value Like "*ok*" Then Compteur = Compteur + 1
 
        Cell.Value = Compteur
    Next Cell
 
End Sub