XL 2016 3 conditions avec if

dindin

dindin

XLDnaute Occasionnel
Bonjour le forum,

j'ai 2 colonnes B et C
La A contient que des numéros (max 5 chiffres)
dans la colonne C j'ai une liste déroulante qui contient "Annulé" et "Reporté"
mon souhait est le suivant :
si l'utilisateur choisi dans la colonne C : "Annulé", on ajoute dans la colonne B : "A_" & chiffre existant de la colonne B ça donne "A_1923" par exemple
si l'utilisateur choisi dans la colonne C : "Reporté", on ajoute dans la colonne B : "R_" & chiffre existant de la colonne B ça donne "R_1922" par exemple
si l'utilisateur laisse la cellule de la colonne C vide, on garde que les chiffres existants de la colonne B ça donne "1923" par exemple

j'essaye ce code qui bug un peu car si on change de choix il continue a rajouter les A ou R:

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule contient le mot annulé

If Target.Column = 3 And ActiveCell.Value = "Annulé" Then
Cells(Target.Row, 2).Value = "A" & Cells(Target.Row, 2).Value

ElseIf Target.Column = 3 And ActiveCell.Value = "Reporté" Then
Cells(Target.Row, 2).Value = "R" & Cells(Target.Row, 2).Value

ElseIf Target.Column = 3 And ActiveCell.Value = "" Then

Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[a-z,A-Z]+"
  chaine = Cells(Target.Row, 2).Value
  chaine = obj.Replace(chaine, "")
  Cells(Target.Row, 2).Value = chaine

End If

End Sub

Mon souhait:

1639738239569.png

Merci d'avance pour votre aide
 
Trier par date Trier par votes
Robert

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Dindin, bonjour le forum,

Peut-être comme ça :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub 'si le changement a lieu ailleurs qe dans la colonne 3 (= C), sort de la procédure
Select Case Target.Value 'agit en fonction de la cellule modifiée (la cible)
    Case "Annulé" 'cas "Annulé"
        Target.Offset(0, -1).Value = "A_" & Target.Offset(0, -1).Value 'rajoute "A_"dans la cellule en colonne B
    Case "Reporté" 'cas "Reporté"
        Target.Offset(0, -1).Value = "R_" & Target.Offset(0, -1).Value 'rajoute "R_"dans la cellule en colonne B
    Case "" 'Cas ou rien n'est inscrit ou si la cellule cible est effacée
        'si il exite au moins une fois le caractères "_" dans la cellule colonne B,
        'redéfinit le texte en partant du troisième caractère
        If UBound(Split(Target.Offset(0, -1), "_")) > 0 Then Target.Offset(0, -1).Value = Mid(Target.Offset(0, -1).Value, 3)
End Select 'fin de l'action en fonction de la cellule modifiée
End Sub
 
Vote positif 0 Vote négatif
dindin

dindin

XLDnaute Occasionnel
Robert à dit:
Bonjour Dindin, bonjour le forum,

Peut-être comme ça :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub 'si le changement a lieu ailleurs qe dans la colonne 3 (= C), sort de la procédure
Select Case Target.Value 'agit en fonction de la cellule modifiée (la cible)
    Case "Annulé" 'cas "Annulé"
        Target.Offset(0, -1).Value = "A_" & Target.Offset(0, -1).Value 'rajoute "A_"dans la cellule en colonne B
    Case "Reporté" 'cas "Reporté"
        Target.Offset(0, -1).Value = "R_" & Target.Offset(0, -1).Value 'rajoute "R_"dans la cellule en colonne B
    Case "" 'Cas ou rien n'est inscrit ou si la cellule cible est effacée
        'si il exite au moins une fois le caractères "_" dans la cellule colonne B,
        'redéfinit le texte en partant du troisième caractère
        If UBound(Split(Target.Offset(0, -1), "_")) > 0 Then Target.Offset(0, -1).Value = Mid(Target.Offset(0, -1).Value, 3)
End Select 'fin de l'action en fonction de la cellule modifiée
End Sub
Cliquez pour agrandir...
Bonjour Robert, et merci
Je regarde ça.
 
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
dindin à dit:
Bonjour le forum,

j'ai 2 colonnes B et C
La A contient que des numéros (max 5 chiffres)
dans la colonne C j'ai une liste déroulante qui contient "Annulé" et "Reporté"
mon souhait est le suivant :
si l'utilisateur choisi dans la colonne C : "Annulé", on ajoute dans la colonne B : "A_" & chiffre existant de la colonne B ça donne "A_1923" par exemple
si l'utilisateur choisi dans la colonne C : "Reporté", on ajoute dans la colonne B : "R_" & chiffre existant de la colonne B ça donne "R_1922" par exemple
si l'utilisateur laisse la cellule de la colonne C vide, on garde que les chiffres existants de la colonne B ça donne "1923" par exemple

j'essaye ce code qui bug un peu car si on change de choix il continue a rajouter les A ou R:

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule contient le mot annulé

If Target.Column = 3 And ActiveCell.Value = "Annulé" Then
Cells(Target.Row, 2).Value = "A" & Cells(Target.Row, 2).Value

ElseIf Target.Column = 3 And ActiveCell.Value = "Reporté" Then
Cells(Target.Row, 2).Value = "R" & Cells(Target.Row, 2).Value

ElseIf Target.Column = 3 And ActiveCell.Value = "" Then

Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[a-z,A-Z]+"
  chaine = Cells(Target.Row, 2).Value
  chaine = obj.Replace(chaine, "")
  Cells(Target.Row, 2).Value = chaine

End If

End Sub

Mon souhait:

Regarde la pièce jointe 1124963
Merci d'avance pour votre aide
Cliquez pour agrandir...
Bonjour à tous
Essaye comme ceci
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    Application.EnableEvents = False
    If Left(Cells(Target.Row, 2), 2) = "R_" Or Left(Cells(Target.Row, 2), 2) = "A_" Then Cells(Target.Row, 2) = Mid(Cells(Target.Row, 2), 3, 9 ^ 9)
    If ActiveCell.Value = "Annulé" Then Cells(Target.Row, 2) = "A_" & Cells(Target.Row, 2).Value
    If ActiveCell.Value = "Reporté" Then Cells(Target.Row, 2) = "R_" & Cells(Target.Row, 2).Value
    Application.EnableEvents = True
End Sub
 

Pièces jointes

  • Annu_Rep.xlsm
    15.1 KB · Affichages: 8
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour
je ne vois pas l’intérêt du VBA la dedans
tu a une liste déroulante(liste de validation je suppose) avec 2 mots

en colonne C ta liste de validation "Annuler;Reporté"
en colonne "B" la formule à étendre à souhait
=SI(A1<>"";SI(C1<>"";GAUCHE(C1;1)&"_" &A1;A1);"")

résultat
demo.gif


et puis même en vba !!!
pourriez vous me dire a quoi ça sert d'aller recouper l’éventuel préfixe précédemment choisi EN B alors que tu a la donnée saine en A????🤔🤔🤔🤯
 
Dernière édition:
Vote positif 0 Vote négatif
Jacky67

Jacky67

XLDnaute Barbatruc
patricktoulon à dit:
Bonjour
je ne vois pas l’intérêt du VBA la dedans
tu a une liste déroulante(liste de validation je suppose) avec 2 mots

en colonne C ta liste de validation "Annuler;Reporté"
en colonne "B" la formule à étendre à souhait
=SI(A1<>"";SI(C1<>"";GAUCHE(C1;1)&"_" &A1;A1);"")



et puis même en vba !!!
pourriez vous me dire a quoi ça sert d'aller recouper l’éventuel préfixe précédemment choisi EN B alors que tu a la donnée saine en A????🤔🤔🤔🤯
Cliquez pour agrandir...

patricktoulon à dit:
Bonjour
je ne vois pas l’intérêt du VBA la dedans
tu a une liste déroulante(liste de validation je suppose) avec 2 mots

en colonne C ta liste de validation "Annuler;Reporté"
en colonne "B" la formule à étendre à souhait
=SI(A1<>"";SI(C1<>"";GAUCHE(C1;1)&"_" &A1;A1);"")

résultat


et puis même en vba !!!
pourriez vous me dire a quoi ça sert d'aller recouper l’éventuel préfixe précédemment choisi EN B alors que tu a la donnée saine en A????🤔🤔🤔🤯
Cliquez pour agrandir...
Hello Patrick,
Je ne pense pas que dans l'exemple du code présenté il soit question de la colonne A 😇;)
 
Vote positif 0 Vote négatif
dindin

dindin

XLDnaute Occasionnel
patricktoulon à dit:
Bonjour
je ne vois pas l’intérêt du VBA la dedans
tu a une liste déroulante(liste de validation je suppose) avec 2 mots

en colonne C ta liste de validation "Annuler;Reporté"
en colonne "B" la formule à étendre à souhait
=SI(A1<>"";SI(C1<>"";GAUCHE(C1;1)&"_" &A1;A1);"")

résultat
Regarde la pièce jointe 1124970

et puis même en vba !!!
pourriez vous me dire a quoi ça sert d'aller recouper l’éventuel préfixe précédemment choisi EN B alors que tu a la donnée saine en A????🤔🤔🤔🤯
Cliquez pour agrandir...
Bonjour Patrick,
une solution VBA va permettre d'éviter les doublons en colonne B en rajoutant un préfixe A ou R, car dans un autre onglet j'utilise la formule RechercheV pour remplir un formulaire suivant le N° inscrit précédemment en B.
je ne vois aussi l'intérêt de rajouter une nouvelle colonne.
 
Vote positif 0 Vote négatif
dindin

dindin

XLDnaute Occasionnel
Jacky67 à dit:
Bonjour à tous
Essaye comme ceci
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    Application.EnableEvents = False
    If Left(Cells(Target.Row, 2), 2) = "R_" Or Left(Cells(Target.Row, 2), 2) = "A_" Then Cells(Target.Row, 2) = Mid(Cells(Target.Row, 2), 3, 9 ^ 9)
    If ActiveCell.Value = "Annulé" Then Cells(Target.Row, 2) = "A_" & Cells(Target.Row, 2).Value
    If ActiveCell.Value = "Reporté" Then Cells(Target.Row, 2) = "R_" & Cells(Target.Row, 2).Value
    Application.EnableEvents = True
End Sub
Cliquez pour agrandir...
un grand merci à Jacky ainsi qu'à Robert pour leurs propositions
 
Vote positif 0 Vote négatif

Discussions similaires

H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
280
HANN
H
D
  • Question
Autres if deux conditions
Réponses
4
Affichages
162
dadaze
D
B
  • Question
Microsoft 365 [RESOLU] Supprimer Ligne rapidement et avec plusieurs conditions
Réponses
5
Affichages
97
BENAM69
B
Dadi147
  • Résolu(e)
XL 2016 cellules A, b, C et D sont automatiquement vides
Réponses
3
Affichages
351
job75
job75
U
  • Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
519
un internaute
U
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
373
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
1 K
un internaute
U
D
  • Résolu(e)
XL 2013 Copie vers un autre classeur avec condition
Réponses
2
Affichages
717
Dafaka7
D
A
  • Question
XL 2013 Aide dans une formule IndexEquiv/Recherche V
Réponses
7
Affichages
270
danielco
D
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
658
mapomme
mapomme

Membres actuellement en ligne

23 membres et 425 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 094
Messages
2 085 240
Membres
102 832
dernier inscrit
kirale