Localiser une cellule

[UJAP]

Bonjour,

Est-il possible sur Excel d’indiquer où se trouve une information ?

Exemple : les cellules A1 à A10 peuvent contenir la notion "Problème". Donc j’ai effectué au sein de la cellule A11 le nombre total de "Problème".
Puis je voudrai qu'une fonctione m’indique dans quelle cellule se trouve cette notion (Exemple en A1 ; A5),

Peut-on le réaliser ?

🙂Merci d’avance pour vos aides,🙂

 

[Papou-net]

Re : Localiser une cellule

Bonjour UJAP,

Voici un fichier exemple.
Ce n'est pas une fonction mais une procédure qui balaie la plage A1:A10 et qui affiche les cellules dans un message.

Espérant que celà te convienne.

Cordialement.

 

[tototiti2008]

Re : Localiser une cellule

Bonjour à tous,

par formules simples :

 

[UJAP]

Re : Localiser une cellule

Merci à tous les 2 pour votre aide,

Une question Papou-net :
Si dans la cellule, il y a aucun "problème", peut-on mettre un message différent pour signaler qu'il y a aucun problème ?

Merci,

 

[Papou-net]

Re : Localiser une cellule

UJAP,

A priori, tu connais peu ou prou VBA pour Excel.

 

[Papou-net]

Re : Localiser une cellule

UJAP,

A priori, tu connais peu ou prou VBA pour Excel.
Tu fais donc ainsi :
Sur ta feuille de calcul, tu insères, depuis la barre d'outils Formulaire, un bouton de commande.
Tu double-cliques sur ce bouton, et le module VBA s'affiche.
Dans la fenêtre principale, figurent 2 lignes de code :
Private Sub CommandButton1_Click()
End Sub
Entre ces 2 lignes, tu insères ce texte :

Dim Mess As String

 Mess = ""
 For Each cel In Sheets("Feuil1").Range("A1:A10").Cells
   If cel.Value = "Problème" Then
     Mess = Mess & cel.Address & " ; "
   End If
 Next
 Mess = Replace(Mess, "$", "")
 Mess = Left(Mess, Len(Mess) - 2)
 MsgBox "Les cellules suivantes contiennent un problème" & vbCrLf &   vbCrLf   & Mess

Tu peux modifier le nom de ton bouton de commande dans la fenêtre Propriétés.
Tu fermes l'éditeur Visual Basic, tu décoches l'outil 'Mode création' de la barre d'outils Excel, et tu n'as plus qu'à cliquer sur ce bouton.

Espérant avoir répondu.

Cordialement.

 

[UJAP]

Re : Localiser une cellule

OK merci je viens de réussir,

Et peut-on Si dans la cellule, il y a aucun "problème", peut-on mettre un message différent pour signaler qu'il y a aucun problème ?

Merci,

 

[Papou-net]

Re : Localiser une cellule

Bien sûr, voici le code modifié :

Private Sub CommandButton1_Click()
Dim Mess As String

Mess = ""
For Each cel In Sheets("Feuil1").Range("A1:A10").Cells
  If cel.Value = "Problème" Then
    Mess = Mess & cel.Address & " ; "
    [COLOR="Red"]Else
    cel.Value = "Pas de problème"[/COLOR]
  End If
Next
Mess = Replace(Mess, "$", "")
Mess = Left(Mess, Len(Mess) - 2)
MsgBox "Les cellules suivantes contiennent un problème" & vbCrLf & vbCrLf & Mess
  
End Sub

Cordialement.

 

[UJAP]

Re : Localiser une cellule

Il me rajoute "pas de problème" dans cellules. Je voulais si possible qu'il annonce dans la Box pas de problème sans modifier la plage,

Merci,

 

[Papou-net]

Re : Localiser une cellule

Pas de problème, UJAP,

Modifies ton code ainsi :

Private Sub CommandButton1_Click()
Dim Mess As String, Verif As Byte

Mess = ""
Verif = 0
For Each cel In Sheets("Feuil1").Range("A1:A10").Cells
  If cel.Value = "Problème" Then
    Mess = Mess & cel.Address & " ; "
    Verif = Verif + 1
  End If
Next
Mess = Replace(Mess, "$", "")
If Len(Mess) > 3 Then Mess = Left(Mess, Len(Mess) - 2)
Select Case Verif
  Case 0
  MsgBox "Pas de problème"
  Case Else
  MsgBox "Les cellules suivantes contiennent un problème" & vbCrLf & vbCrLf & Mess
End Select

End Sub

Petite suggestion en sus : la variable Verif comptabilise le nombre de cellules à problèmes, tu peux ainsi l'exploiter dans ton programme.

Cordialement.

 

[UJAP]

Re : Localiser une cellule

Merci pr astuce, génial,

Bonne soirée,