Sélectionner une cellule à partir d'une info partielle

Résolu/Fermé

Jefman007 Messages postés 17 Date d'inscription mercredi 12 février 2014 Statut Membre Dernière intervention 9 mars 2016 - 24 mars 2014 à 15:37
Jefman007 Messages postés 17 Date d'inscription mercredi 12 février 2014 Statut Membre Dernière intervention 9 mars 2016 - 24 mars 2014 à 18:14

Bonjour,

C'est probablement très simple mais je n'y arrive pas.

J'ai un tableau dans lequel les décisions des employés sont compilées.

Je dois faire un calcul sur le taux d'approbation, mais pour se faire, je dois supprimer les lignes où la "Décision" Annulée apparaît. Comme elle peut apparaître sous plusieurs appélations (mais débutant toutes par "Annulée"), je veux faire une macro qui trouvera la cellule de la colonne "Décision" contenant Annu*, sélectionner cette ligne et la supprimer.

Ce que j'ai à date: (la colonne décision est toujours à C, mais l'annulation peut être n'importe où).

Range("A1").Select
ActiveCell.Offset(0, 2).Select

Do Until ActiveCell.Value = "Annul *"
ActiveCell.Offset(1, 0).Select
Loop

Je ne suis pas aller plus loin puisque ma sélection ne fonctionne pas.

Merci d'avance !!!

A voir également:

Sélectionner une cellule à partir d'une info partielle
Aller à la ligne dans une cellule excel - Guide
Comment faire une recherche à partir d'une photo - Guide
Bloquer une cellule excel - Guide
Info pc - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
24 mars 2014 à 15:53

Bonjour,

Sub WorkbookFind()
What = "Annulée"
  If What = "" Then Exit Sub
  For Each sht In Worksheets
    sht.Activate
    Set Found = sht.Cells.Find(What)
    If Not Found Is Nothing Then
      FirstAddress = Found.Address
      Do
        Found.Activate
        Response = MsgBox("Continuer ?", vbYesNo + vbQuestion)
        If Response = vbNo Then Exit Sub
        Set Found = Cells.FindNext(After:=ActiveCell)
        If Found.Address = FirstAddress Then Exit Do
      Loop
    End If
  Next sht
  MsgBox "Recherche terminée !"
End Sub

A adapter

Jefman007 Messages postés 17 Date d'inscription mercredi 12 février 2014 Statut Membre Dernière intervention 9 mars 2016
24 mars 2014 à 18:14

Merci !

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Comment trouver un numéro à partir du nom et prénom

Trouver un nom avec une adresse

Trouver un numero de portable a partir d'un nom svp

Excel formule : savoir si une cellule contient partie texte

Discussions similaires

Newsletters