Creation d'un VBA - boite de dialogue - et recherche V

[bruno93420]

Bonjour,

je suis novice dans la creation de VBA sur Excel.
Je voudrais remplir un fichier excel basic et pouvoir lui faire dire a l'aide d'une boite de dialogue que le chiffre rentrer est deja renseigne plus haute dans la meme colonne. Pour se faire, je voudrai un facon visiuel de le voir (boite de dialogue, changement de couleur de la cellule) et impossibilite d'aller plus loin dans la saisie dans que le chiffre n'est pas modifier.
je vous remerci d'avance de votre aide

 

[Kiseki]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour,

Un fichier d'exemple est requis.

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour Kisedi,

desoler j'avais oublier de l'inserer. C'est chose faite

 

[Kiseki]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour,

Est-ce que ceci te satisfait ?

 

[TempusFugit]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour


Pourquoi ne pas utiliser Données/Validation ?
Personnalisé:
Formule: =NB.SI($A2:A$35;$A2)>1
Personnaliser le message dans k'onglet : Alerte d'erreur

Cela évite l'emploi d'une macro.

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour,

Est-ce que ceci te satisfait ?

Merci pour ton aide, c'est justement ce dont j'avais besoin.
Merci encore

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour


Pourquoi ne pas utiliser Données/Validation ?
Personnalisé:
Formule: =NB.SI($A2:A$35;$A2)>1
Personnaliser le message dans k'onglet : Alerte d'erreur

Cela évite l'emploi d'une macro.

Cette solution est bonne aussi, je vais surement m'en servir.

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Merci a tous pour votre aide precieuse.
A tres vite

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Merci pour ton aide, c'est justement ce dont j'avais besoin.
Merci encore

Comment je peux faire pour que la message box apparaisse a l'ouverture du fichier, et que l'on ne puisse pas renseigner de numero dans la colonne A autrement qu'avec la message box?

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour,

Est-ce que ceci te satisfait ?

Comment je peux faire pour que la message box apparaisse a l'ouverture du fichier, et que l'on ne puisse pas renseigner de numero dans la colonne A autrement qu'avec la message box?

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Bonjour,

Est-ce que ceci te satisfait ?

Merci pour ton aide, c'est justement ce dont j'avais besoin.
Merci encore

 

[Kiseki]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Jean-marcel : Si le doublon est en-dessous de la cible ta macro ne le détecte pas car il renvois la première trouvée.

Bonjour


Pourquoi ne pas utiliser Données/Validation ?
Personnalisé:
Formule: =NB.SI($A2:A$35;$A2)>1
Personnaliser le message dans k'onglet : Alerte d'erreur

Cela évite l'emploi d'une macro.

Très juste, j'ai personnellement tendance à oublier qu’Excel fonctionne aussi sans macro.

Cependant la validation ce fait si la valeur est accepter, donc :

=NB.SI($A:$A;$A2)<2

(Positionne toi dans A2, fait CTRL+MAJ+Flèche bas quelque fois et la fait une validation des données personnalisée).



Pour que la dernière cellule soit activée à l'ouverture et l'activation de la feuille :

ALT+F11
Thisworkbook :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
With Sheets(1)
    .Activate
    .Cells(65536, 1).End(xlUp).Offset(1).Select
End With
End Sub

Feuil1 :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells(65536, 1).End(xlUp).Offset(1).Select
End Sub

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

Jean-marcel : Si le doublon est en-dessous de la cible ta macro ne le détecte pas car il renvois la première trouvée.



Très juste, j'ai personnellement tendance à oublier qu’Excel fonctionne aussi sans macro.

Cependant la validation ce fait si la valeur est accepter, donc :

=NB.SI($A:$A;$A2)<2

(Positionne toi dans A2, fait CTRL+MAJ+Flèche bas quelque fois et la fait une validation des données personnalisée).



Pour que la dernière cellule soit activée à l'ouverture et l'activation de la feuille :

ALT+F11
Thisworkbook :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
With Sheets(1)
    .Activate
    .Cells(65536, 1).End(xlUp).Offset(1).Select
End With
End Sub

Feuil1 :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells(65536, 1).End(xlUp).Offset(1).Select
End Sub

Merci des ces precisions, mais je n'arrive pas a mettre la formul pour qu'a l'ouverture du fichier la MSGBOX s'ouvre automatiqument. Et que je ne puisse inscrire quoi que se soit dans la colonne A sans passe par la MSGBOX

merci d'avance

 

[Kiseki]

Re : Creation d'un VBA - boite de dialogue - et recherche V

La box à disparue.

Le code est ainsi alléger.


Tu tien vraiment à avoir une box ? Car c'est plus gadget qu'utile.

 

[bruno93420]

Re : Creation d'un VBA - boite de dialogue - et recherche V

La box à disparue.

Le code est ainsi alléger.


Tu tien vraiment à avoir une box ? Car c'est plus gadget qu'utile.

oui la box est utile car plusiquer personne vas se servir du logiciel, et si il y a doublon on doit pouvoir le voir tout de suite et remonte a la valeur donner