Discussion :

[Lordvoldman]

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’avanceà automatiser.xlsx de votre aide.

[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 :

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

1
2
3
4
5
If 'Condition1' And/Or 'Condition2
 
'Procédure
 
End if

[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.

[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

[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 ).

[joe.levrai]

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

Code :

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

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 :

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
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