Find sur cellules variables et plusieurs ongl

Fermé
Oukapaka Messages postés 112 Date d'inscription jeudi 30 septembre 2010 Statut Membre Dernière intervention 22 août 2016 - Modifié par Oukapaka le 19/01/2011 à 14:27
Oukapaka Messages postés 112 Date d'inscription jeudi 30 septembre 2010 Statut Membre Dernière intervention 22 août 2016 - 19 janv. 2011 à 16:45
Bonjour,

j'ai une macro VBA dans Outlook qui analyse les fichiers Excel contenu dans mes mails. Ce sont des commandes et la macro vérifie simplement que le fichier est au bon format. Quand je l'execute, cette dernière m'exclue totalement de la macro tout ce qui ne correspond pas au format et n'accepte aucun # à la sortie papier. Je voudrai donc faire un Find sur le fichier entier mais je ne sais pas comment adapter pour vérifier des cellules variables dans les différents onglets. Seul le nombre d'onglets ne change pas (il y en a 3 qui sont nommés). Voici le code que j'ai rentré mais qui ne correspond pas à mes critères et qui ne marche pas

Function Cherche()
'Recherche du # caractère d'erreur d'impression
  Dim Plage   As Range
  Dim Cellule As Range
  Dim Posit   As Long
  
  On Error Resume Next
  Set Plage = Sheets("Feuil1").Range(Cells(1, 1), Cells(12, 8))
  For Each Cellule In Plage
    If Cellule.Value <> "" Then
      Posit = Application.WorksheetFunction.Find("#", Cellule.Value)
      If Posit > 0 Then
      End If
        Cellule.Activate
        Exit Function
      End If
    End If
  Next
  
End Function


Merci d'avance.

Cordialement

2 réponses

ccm81 Messages postés 10559 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 mars 2023 2 337
19 janv. 2011 à 15:54
bonjour,
une erreur (au moins) dans le code
il y a un End if en trop quelque part
bonne suite
0
Oukapaka Messages postés 112 Date d'inscription jeudi 30 septembre 2010 Statut Membre Dernière intervention 22 août 2016 5
19 janv. 2011 à 16:45
Oui effectivement je ne l'ai pas corrigé ici mais dans mon programme final oui. mais j'aimerai savoir si vous n'auriez pas un petit code à me donner via le mien ou meme s'il faut tout changer afin d'arriver à faire ce filtrage car je suis perdu et je ne sais pas du tout quoi rédiger au niveau des procédures.
0