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

Microsoft 365 Find : si texte recherché n'existe pas alors .....

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Encore un code que je n'arrive pas à faire Grrrrrr !!!!! 'nul que je suis)

En recherche find, je voudrais gérer si l'objet de ma recherche n'existe pas.
Par exemple, je cherche "le forum"
Il n'existe pas ... mon code,
else
Il existe................ mon code

J'ai fait des tests et des recherches sans y parvenir.
Voici le code où j'en suis (code qui beug ) :
VB: 
Sheets("RdV_transfert").Select
'Columns("L:L").Select
    Dim x As Range
    Set x = Range("l:l").Find("à confirmer", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
'    Columns("L:L").Select
'    Selection.Find(What:="à confirmer", After:=ActiveCell, LookIn:=xlValues, _
'        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
'        MatchCase:=False, SearchFormat:=False).Activate
'
' SI TROUVE PAS
[a1].Select
    Sheets("SMS RdV").Select
    MsgBox ("Y'en n'a pas ou plus")
    Application.EnableEvents = True
    Application.ScreenUpdating = True

' SI TROUVE
            ActiveCell = "SMS envoyé"
            Sheets("SMS RdV").Range("c7") = ActiveCell.Offset(0, -4) 'Client
            Sheets("SMS RdV").Range("b6") = ActiveCell.Offset(0, -3) 'Client téléphone
            Sheets("SMS RdV").Range("g4") = ActiveCell.Offset(0, -2) 'Commerciale
            Sheets("SMS RdV").Range("d4") = ActiveCell.Offset(0, -1) 'Commerciale téléphone
            Sheets("SMS RdV").Range("c10") = ActiveCell.Offset(0, -10) 'date RdV
            Sheets("SMS RdV").Range("c11") = ActiveCell.Offset(0, -9) 'date appel
            Sheets("SMS RdV").Range("c27") = ActiveCell.Offset(0, -4) 'Réseau
            Sheets("SMS RdV").Range("c28") = ActiveCell.Offset(0, -6) 'Prospect
            Sheets("SMS RdV").Range("c29") = ActiveCell.Offset(0, -5) 'Téléphone

            Sheets("SMS RdV").Select
            ActiveSheet.Shapes("bouton 1").Visible = True
            Application.EnableEvents = True
            Application.ScreenUpdating = True

End Sub

Auriez-vous le bon code ?
Si besoin, je ferai un p'tit fichier test.

Je vous remercie comme d'habitude et je continue mes recherches,
Amicalement,
lionel
 
Dernière édition:
Trier par date Trier par votes

fanch55

XLDnaute Barbatruc
Salut Lionel,
Set x = Range("l:l").Find("à confirmer", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cliquez pour agrandir...
Quand tu fais un Find, il ne faut pas faire un activate car tu ne sais pas encore si la valeur va être trouvée --> erreur d'exécution .
VB: 
    Set x = Range("l:l").Find("à confirmer", After:=ActiveCell, LookIn:=xlValues, _
            LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
    If X is nothing then
        ...
    Else
        ...
    End if
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bonjour fanch55, Bonjour laurent950,

Merci à vous deux pour m'avoir donné la solution
VB: 
Sub RdV_jour()
Sheets("RdV_transfert").Select
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim x As Range

With Sheets("RdV_transfert").Range("l:l")
    Set x = .Find(What:="à confirmer", After:=Range("L1"), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
End With
On Error Resume Next
x.Activate
    'Test pour générer une erreur si la variable est Nothing
    'x.Worksheet.Select ' Selection de la feuille "RdV_transfert"
If Err <> 0 Then
' SI TROUVE PAS
    [a1].Select
    Sheets("SMS RdV").Select
    MsgBox ("Y'en n'a pas ou plus")
    ActiveSheet.Shapes("bouton 1").Visible = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
        Else
        ' SI TROUVE
        ActiveCell.Value = "SMS envoyé"
        Sheets("SMS RdV").Range("c7") = ActiveCell.Offset(0, -4) 'Client
        Sheets("SMS RdV").Range("b6") = x.ActiveCell(0, -3) 'Client téléphone
        Sheets("SMS RdV").Range("g4") = ActiveCell.Offset(0, -2) 'Commerciale
        Sheets("SMS RdV").Range("d4") = ActiveCell.Offset(0, -1) 'Commerciale téléphone
        Sheets("SMS RdV").Range("c10") = ActiveCell.Offset(0, -10) 'date RdV
        Sheets("SMS RdV").Range("c11") = ActiveCell.Offset(0, -9) 'date appel
        Sheets("SMS RdV").Range("c27") = ActiveCell.Offset(0, -4) 'Réseau
        Sheets("SMS RdV").Range("c28") = ActiveCell.Offset(0, -6) 'Prospect
        Sheets("SMS RdV").Range("c29") = ActiveCell.Offset(0, -5) 'Téléphone
            
        Sheets("SMS RdV").Select
        ActiveSheet.Shapes("bouton 1").Visible = True
        Application.EnableEvents = True
        Application.ScreenUpdating = True
End If
On Error GoTo 0  
End Sub
lionel
 
Dernière édition:
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Ah Ok,

Personnellement, je préfère tester le Nothing,
car le "on error resume next" est vraiment une instruction de dernier recours si pas d'autre moyen .

Pour bien l'exploiter, il faudrait mettre un "On error goto 0" juste après le If err sinon une erreur éventuelle dans la suite de la sub pourrait avoir une conséquence inattendue .
 
Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc
Bonjour @Usine à gaz , @fanch55

j'avais écrit à @Usineàgaz directement en message car je n'ai pas su résoudre son poste j'ai détaillé le code que je suis arrivé a corrigé jusqu'à une certaine limite :

je le poste ici, j'ai modifié la gestion de l'Erreur @fanch55 si tu as une solution autre je suis preneur pour apprendre aussi. je te remercie @fanch55

After:=ActiveCell ne fonctionne pas remplacer par After:=Range("L1")

VB: 
Sub test()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim x As Range
With Sheets("RdV_transfert").Range("l:l")
'Columns("L:L").Select
    Set x = .Find(What:="à confirme", After:=Range("L1"), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
End With

On Error GoTo RechercheDateSurTouteColonneL
' Test pour générer une erreur si la variable est Nothing
    x.Worksheet.Select ' Selection de la feuille "RdV_transfert"
' SI TROUVE
           ' Pour moi ActiveCell = x
            'ActiveCell.Value = "SMS envoyé"
            x.Value = "SMS envoyé"
            Sheets("SMS RdV").Range("c7") = x.Offset(0, -4) 'Client
            Sheets("SMS RdV").Range("b6") = x.Offset(0, -3) 'Client téléphone
            Sheets("SMS RdV").Range("g4") = x.Offset(0, -2) 'Commerciale
            Sheets("SMS RdV").Range("d4") = x.Offset(0, -1) 'Commerciale téléphone
            Sheets("SMS RdV").Range("c10") = x.Offset(0, -10) 'date RdV
            Sheets("SMS RdV").Range("c11") = x.Offset(0, -9) 'date appel
            Sheets("SMS RdV").Range("c27") = x.Offset(0, -4) 'Réseau
            Sheets("SMS RdV").Range("c28") = x.Offset(0, -6) 'Prospect
            Sheets("SMS RdV").Range("c29") = x.Offset(0, -5) 'Téléphone

            Sheets("SMS RdV").Select
            ActiveSheet.Shapes("bouton 1").Visible = True

Application.EnableEvents = True
Application.ScreenUpdating = True

RechercheDateSurTouteColonneL:
' SI TROUVE PAS
    Sheets("SMS RdV").Select
    MsgBox ("Y'en n'a pas ou plus")
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
448
sylvanu
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
371
Francky79
F
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
561
Usine à gaz
  • Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
350
Jojo973
  • Question
Microsoft 365 simuler clic sur un bouton macro
Réponses
12
Affichages
1 K
Usine à gaz
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
550
escudo
E
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
567
Francky79
F
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
552
Usine à gaz
  • Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
451
Phillip
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
313
eric72
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…