Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro données obligatoires avec des conditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion roidurif
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

roidurif

XLDnaute Occasionnel
Bonjour,

Dans mon fichier, Les colonnes "C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC" sont obligatoire lorsque une donnée est saisie en "A".

J'ai créer une macro qui permet contrôle dans ce tableau si ces champs obligatoire ne sont pas manquant et si c'est le cas,alors elle indique le numéro de la cellule dans une autre feuille.

voici le code

Code: 
Sub Test2()
Sheets("Feuil1").Range("B13:IV13").Clear
Dim Colonne(), NumClient As Range, i As Long
Colonne = Array("C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC") 'Colonnes obligatoires en bleu
With Sheets("BDD")
For Each NumClient In .Range("A2", .[A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
For i = LBound(Colonne) To UBound(Colonne)
If .Range(Colonne(i) & NumClient.Row).Value = "" Then _
Sheets("Feuil1").Range("IV13").End(xlToLeft).Offset(0, 1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)
Next
Next

End With
End Sub

Mes 2 problématiques sont :
1) lorsque en "C", il existe une 2ème, 3ème... même références identiques à la 1ère, alors seule les champs "AW", "AX", "BB", "BC" sont obligatoires.
2) lorsque en "B", il est saisie un D, alors seule le champs "C" est obligatoires.

J' espère avoir été assez clair.

Merci de votre aide
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Macro données obligatoires avec des conditions

Bonjour roidurif,

J'écrirais, mais à tester :

Code: 
For i = 0 To 11
x = .Range(Colonne(i) & NumClient.Row)
If i And x = .Range("C" & NumClient.Row) And x <> "" Then i = IIf(i < 7, 6, i): GoTo 1
If x = "" Then _
'-------------------
If .Range("B" & NumClient.Row) = "D" Then Exit For 'ou peut-être : If InStr(.Range("B" & NumClient.Row), "D")  Then Exit For
1 Next

Edit : non, le 1er test n'est pas bon, il faut je pense tout effacer d'abord, je vois ça

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

Ceci doit être mieux :

Code: 
For i = 0 To 11
x = .Range(Colonne(i) & NumClient.Row)
If i And i < 7 And x = .Range("C" & NumClient.Row) And x <> "" Then _
  i = 6 :Sheets("Feuil1").Range("B13:IV13").Clear: GoTo 1
If x = "" Then _
'-------------------
If .Range("B" & NumClient.Row) = "D" Then Exit For 'ou peut-être : If InStr(.Range("B" & NumClient.Row), "D")  Then Exit For
1 Next
Next

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

Ah mais c'est plus compliqué 😡 car il ne faut pas effacer toutes les adresses :

Code: 
For i = 0 To 11
x = .Range(Colonne(i) & NumClient.Row)
If i And i < 7 And x = .Range("C" & NumClient.Row) And x <> "" Then
i = 6
For Each cel In Sheets("Feuil1").Range("B13", Sheets("Feuil1").Range("IV13").End(xlToLeft))
If cel.Value Like "*" & NumClient.Row Then cel.Clear
Next
GoTo 1
End If
If x = "" Then _
'-------------------
If .Range("B" & NumClient.Row) = "D" Then Exit For 'ou peut-être : If InStr(.Range("B" & NumClient.Row), "D")  Then Exit For
1 Next
Next

Edit : modifié la recherche dans cel en utilisant Like...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Bjr job75,

Je viens de tester ta macro et j'ai rien qui ne se passe. je te joins mon fichier stp pour y jetter un oeil.

Corialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Bonjour roidurif,

Mon code montrait les modifications à apporter à votre macro initiale, mais vous n'avez pas su l'adapter 😱

Voici toute la macro (modifications en rouge), testez-la :

Code: 
Sub Test2()
Sheets("Feuil1").Range("B13:IV13").Clear
Dim Colonne(), NumClient As Range, i As Long, [COLOR="Red"]x As Variant, cel As Range[/COLOR]
Colonne = Array("C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC") 'Colonnes obligatoires en bleu
With Sheets("BDD")
For Each NumClient In .Range("A2", .[A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
[COLOR="Red"]For i = 0 To 11
x = .Range(Colonne(i) & NumClient.Row)
If i And i < 7 And x = .Range("C" & NumClient.Row) And x <> "" Then
i = 6
For Each cel In Sheets("Feuil1").Range("B13", Sheets("Feuil1").Range("IV13").End(xlToLeft))
If cel.Value Like "*" & NumClient.Row Then cel.Clear
Next
GoTo 1
End If
If x = "" Then _
[COLOR="Black"]Sheets("Feuil1").Range("IV13").End(xlToLeft).Offset(0, 1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)[/COLOR]
If .Range("B" & NumClient.Row) = "D" Then Exit For 'ou peut-être : If InStr(.Range("B" & NumClient.Row), "D")  Then Exit For
1 Next[/COLOR]
Next
End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Merci job75,
La macro fonctionne bien cette fois-ci

La condition :
2) lorsque en "B", il est saisie un D, alors seule le champs "C" est obligatoires fonctionne bien.

Par contre la condition
1) lorsque en "C", il existe une 2ème, 3ème... références identiques à la 1ère, alors seule les champs "AW", "AX", "BB", "BC" sont obligatoires, ça ne fonctionne pas réellment.

Elle dit que toutes les colonnes "C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC" ne sont pas renseignées.

Je c pas si je me fais comprendre.

Merci
 
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

Alors c'est en effet que je n'ai pas compris :

1) lorsque en "C", il existe une 2ème, 3ème... références identiques à la 1ère
Cliquez pour agrandir...

Merci de bien expliquer.

Moi je comprenais que si par exemple C20 contenait une valeur et que D20 ou E20 ou AB20 ou AC20 etc étaient égaux à C20... Et je n'avais même pas le fichier à l'époque.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Désolé job75 pour mon incompréhension,

Je reformule tout par un exemple:

1ere réf. "20090020" : les colonnes "C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC" sont obligatoires
2eme même ref. "20090020" : "AW", "AX", "BB", "BC" sont obligatoires
3eme même ref. "20090020" : "AW", "AX", "BB", "BC" sont obligatoires

Autre réf. "20090021" : les colonnes "C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC" sont obligatoires

Autres réf. "20090022": les colonnes "C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC" sont obligatoires
2eme même ref. "20090022" : "AW", "AX", "BB", "BC" sont obligatoires

ainsi de suite

J'espere que c'est plus parlant

Merci d avance
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

J'ai compris en regardant mieux le fichier ! Edit : et merci pour l'explication

Il fallait comprendre :

1) lorsque en "C" la référence est égale à celle de la ligne précédente...
Cliquez pour agrandir...

Alors c'est simple et voici la macro avec les 2 tests supplémentaires en rouge :

Code: 
 Sub Test2()
Sheets("Feuil1").Range("B13:IV13").Clear
Dim Colonne(), NumClient As Range, i As Long
Colonne = Array("C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC") 'Colonnes obligatoires en bleu
With Sheets("BDD")
For Each NumClient In .Range("A2", .[A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
For i = 0 To 11
[COLOR="Red"]If .Range("C" & NumClient.Row) = .Range("C" & NumClient.Row - 1) And .Range("C" & NumClient.Row) <> "" Then i = 7[/COLOR]
If .Range(Colonne(i) & NumClient.Row) = "" Then _
Sheets("Feuil1").Range("IV13").End(xlToLeft).Offset(0, 1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)
[COLOR="Red"]If .Range("B" & NumClient.Row) = "D" Then Exit For[/COLOR]
Next
Next
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

Oui, autant pour moi, il ne faut faire le test que pour i = 0...

Code: 
Sub Test2()
Sheets("Feuil1").Range("B13:IV13").Clear
Dim Colonne(), NumClient As Range, i As Long
Colonne = Array("C", "D", "E", "AB", "AC", "AH", "AI", "AW", "AX", "BA", "BB", "BC") 'Colonnes obligatoires en bleu
With Sheets("BDD")
For Each NumClient In .Range("A2", .[A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
For i = 0 To 11
If [COLOR="Red"]i = 0 And[/COLOR] .Range("C" & NumClient.Row) = .Range("C" & NumClient.Row - 1) And .Range("C" & NumClient.Row) <> "" Then i = 7
If .Range(Colonne(i) & NumClient.Row) = "" Then _
Sheets("Feuil1").Range("IV13").End(xlToLeft).Offset(0, 1).Value = .Range(Colonne(i) & NumClient.Row).Address(REF_ABS, REF_ABS)
If .Range("B" & NumClient.Row) = "D" Then Exit For 'ou peut-être : If InStr(.Range("B" & NumClient.Row), "D")  Then Exit For
Next
Next
End With
End Sub

Edit : j'ai aussi enlevé le GoTo 1 et écrit directement i = 7 (c'était modifié dans mon post précédent)

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Merci job75, merci pour votre aide

Petites chose que je remarque, lorsqu'il y a des refs identiques "BA" se rajoute au "AW", "AX", "BB", "BC"

Mais ce je voudrais savoir job75, si je veux rajouter par exemple "AH" en plus de champs AW", "AX", "BB", "BC", qu'es ce que je dois modifier?

Merci infiniement
 
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

Pour les BA ah oui c'est vrai, vous ne voulez plus les contrôler, mais là ça me gonfle.

Si vous voulez rajouter AH dans les contrôles, modifiez la macro après l'avoir comprise.

Bonne fin de soirée.
 
Vote positif 0 Vote négatif
Re : Macro données obligatoires avec des conditions

Re,

Bon, je ne veux pas vous empêcher de dormir, alors pour résoudre simultanément les 2 derniers problèmes, dans le tableau mettez BA en 7ème position et AH en 8ème :

Code: 
Colonne = Array("C", "D", "E", "AB", "AC", "AI", [COLOR="Red"]"BA", "AH",[/COLOR] "AW", "AX", "BB", "BC")

Avec ces 2 changements (une interversion) on n'a pas besoin de modifier le i = 7.

Bonne nuit.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
930
TooFatBoy
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
839
KRUG WOO
K
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
860
Chaton77
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
666
AtTheOne
B
  • Question Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
972
sousou
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
2 K
Vermithor
V
C
  • Question Question
Microsoft 365 VBA Moyennes avec conditions
Réponses
7
Affichages
819
AtTheOne
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
R
  • Question Question
XL 2019 Ajouter des colonnes dans plusieurs feuilles avec les données en dynamique (Mise en page et données)
2
Réponses
24
Affichages
2 K
ryfalcon
R
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
D
  • Question Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
1 K
vgendron
A
  • Question Question
XL 2016 Sous-totaux ou WorksheetFunction.Sum
Réponses
2
Affichages
842
Aldonanou
A
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
Y
  • Question Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
2 K
YANNISE
Y
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
2
Réponses
19
Affichages
2 K
soan
S
O
  • Question Question
XL 2013 Créer un tableau par VBA selon des conditions
Réponses
1
Affichages
891
onyirimba
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…