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

XL 2021 Comparaison de cellules avec une autre plage de celllules

P

phenolate

XLDnaute Nouveau
Bonjour,

J'ai une colonne A client dans laquelle j'entre les noms (de A2 à A6).

J'ai également une ligne clients (de B9 à F9) pour laquelle je peux choisir le nom d'un des clients rentrés dans ma première colonne A (listes avec source A2:A6).

Je voudrais créer une macro qui pourrait m'alerter lorsqu'il manque un des clients dans ma ligne 9 par rapport à ma liste de la colonne A et m'envoyer un message du type ("Tous les clients saisis en A doivent apparaître dans la ligne 9").

Par exemple dans le fichier excel/photo fournie il manque le client Bill.



J'espère ne pas vous avoir perdu, je peux clarifier les choses si cela ne vous paraît pas net.

Merci par avance!
 

Pièces jointes

  • Comparaison clients.xls
    27.5 KB · Affichages: 6
Solution
Bonsoir à tous,

Voyez le fichier joint et cette macro dans le code de la feuille :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
With [A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    .Offset(1).Resize(.Rows.Count - 1).Name = "P" 'plage nommée
    If [SUM(-(COUNTIF(9:9,P)=0))] Then _
        MsgBox "Tous les clients saisis en A doivent apparaître dans la ligne 9"
End With
End Sub
Modifiez ou validez une cellule quelconque.

A+
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
Bonjour,
Une proposition qui mettra automatiquement la plage A9:F9 à jour en cas de modification dans une des plages
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1:a6,a9:f9]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    [A1:A6].Copy
    [A9].PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Application.EnableEvents = True: Application.CutCopyMode = False
End Sub
 

Pièces jointes

  • Comparaison clients .xls
    74.5 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif
P

phenolate

XLDnaute Nouveau
Merci beaucoup de vous pencher sur mon sujet mais ce n'est pas ce que je demande, j'ai dû mal m'exprimer :

En fait une fois remplis mes clients en colonne A, je les sélectionne dans un autre tableau (ligne 9), ensuite je clique sur un bouton pour exécuter tout un tas d'opérations dans mon fichier final...Lorsque je clique sur le bouton je veux un message d'erreur au cas où tous mes noms de clients n'apparaissent pas dans la ligne 9. S'ils y sont tous mon action peut alors continuer...

Est-ce un peu plus clair?
Merci!
 
Vote positif 0 Vote négatif
P

phenolate

XLDnaute Nouveau
Petite question subsidiaire, vous m'avez envoyé un fichier .xls, or quand je crée des macros j'enregistrais en .xlsm, je pensais y être obligé pour lancer mes macros, mais apparemment le votre fonctionne en xls! pouvez-vous m'expliquer la nuance entre les deux types de fichier svp?
Merci!
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
RE..
J'ai enregistré le classeur au même format que celui présent dans la demande.
Les anciens fichiers sous. XLS (97-2003) supportent les macros.
Si ma proposition ne donne pas satisfaction, alors mettre un classeur qui reflète la structure du classeur final avec les macros déjà présentes qui sont sujet à modification.
 
Dernière édition:
Vote positif 0 Vote négatif
P

phenolate

XLDnaute Nouveau
Non je trouvais justement bien de pouvoir utiliser les macros sans mettre le format .xlsm c'était le but de ma question je cherche à comprendre...
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir à tous,

Voyez le fichier joint et cette macro dans le code de la feuille :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
With [A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    .Offset(1).Resize(.Rows.Count - 1).Name = "P" 'plage nommée
    If [SUM(-(COUNTIF(9:9,P)=0))] Then _
        MsgBox "Tous les clients saisis en A doivent apparaître dans la ligne 9"
End With
End Sub
Modifiez ou validez une cellule quelconque.

A+
 

Pièces jointes

  • Comparaison clients.xls
    37 KB · Affichages: 5
Vote positif 0 Vote négatif
Solution
P

phenolate

XLDnaute Nouveau
Bonjour,
J'ai adapté votre fichier à mon projet en créant un bouton qui compare avec les clients sélectionnés en 1ere colonne mais ça ne fonctionne pas dans tous les cas, quand j'enlève le client en case B9 je n'ai pas le message, pourriez-vous me dire pourquoi svp et détailler l'instruction If [SUM(-(COUNTIF(9:9,P)=0))] car je n'y comprend rien...

Merci !
 

Pièces jointes

  • Copie de Comparaison clients.xls
    38 KB · Affichages: 2
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour phenolate, le forum,
phenolate à dit:
quand j'enlève le client en case B9 je n'ai pas le message, pourriez-vous me dire pourquoi svp
Cliquez pour agrandir...
Pas du tout, il faut juste utiliser le bon code :
VB: 
Sub Bouton2_Cliquer()
With [A1].CurrentRegion
    If .Rows.Count = 1 Then Exit Sub
    .Offset(1).Resize(.Rows.Count - 1).Name = "P" 'plage nommée
    If [SUM(-(COUNTIF(9:9,P)=0))] Then _
        MsgBox "Tous les clients saisis en A doivent apparaître dans la ligne 9"
End With
End Sub
La formule SUM(-(COUNTIF(9:9,P)=0)) c'est la même chose que la formule matricielle :
Code: 
=SOMME(-(NB.SI(9:9,P)=0))
ou :
Code: 
=SOMMEPROD(-(NB.SI(9:9,P)=0))
Le signe - convertit la valeur logique VRAI en -1 et FAUX en 0.

A+
 

Pièces jointes

  • Copie de Comparaison clients.xls
    37.5 KB · Affichages: 3
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
181
Dégé59
D
L
  • Résolu(e)
XL 2019 Renvoyer une valeur colonne A avec la dernière valeur de la colonne B
Réponses
5
Affichages
464
Gégé-45550
J
  • Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
J
  • Question
XL 2013 Comparaison de valeur suivant une autre valeur
Réponses
11
Affichages
1 K
julkien
J
P
  • Question
XL 2016 rechercher si une date est comprise entre 2 dates de 2 onglets positionnées dans la même cellule
Réponses
2
Affichages
662
pene
P
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
2 K
dysorthographie
M
  • Résolu(e)
Microsoft 365 Formule pour compter les ligne des cellules adjacentes
Réponses
4
Affichages
545
MrNathan58
M
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
2 K
dysorthographie
R
  • Question
Microsoft 365 Fonction SI avec dates et plage de données
Réponses
3
Affichages
1 K
patoche42500
P
1
  • Résolu(e)
Microsoft 365 effacement conditionnel d'une plage de cellules
Réponses
5
Affichages
393
1636alain
1
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…