VBA Excel Rechercher le contenu d'une cellule
Résolu/Fermé
zivodul8
Messages postés
229
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
-
19 avril 2011 à 10:10
zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 19 avril 2011 à 11:58
zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 19 avril 2011 à 11:58
Bonjour,
Je souhaite connaitre les coordonnées de la première cellule d'une colonne contenant uniquement "0". J'ai donc essayé avec cette fonction :
empla = Worksheets("Données p").Range("A54:A500").Find(what:=0)
Mais le problème, et il y en a deux, c'est que cette fonction me renvoi le contenu de la cellule, et qu'elle prend en compte toutes les cellules contenant un 0 (exemple : "UCLI 7205 MAR")
Merci de votre aide !
Je souhaite connaitre les coordonnées de la première cellule d'une colonne contenant uniquement "0". J'ai donc essayé avec cette fonction :
empla = Worksheets("Données p").Range("A54:A500").Find(what:=0)
Mais le problème, et il y en a deux, c'est que cette fonction me renvoi le contenu de la cellule, et qu'elle prend en compte toutes les cellules contenant un 0 (exemple : "UCLI 7205 MAR")
Merci de votre aide !
A voir également:
- VBA Excel Rechercher le contenu d'une cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
1 réponse
zivodul8
Messages postés
229
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
22
19 avril 2011 à 11:58
19 avril 2011 à 11:58
Finalement j'ai trouvé comme un grand, un peu comme un système D :
Sub Macro1() Dim Dligne As Integer Dim i As Integer Dim j As Integer j = 55 Sheets("Données p").Select Do While Dligne = 0 For i = 54 To j If Range("A" & i).Value = "0" Then Dligne = i End If Next i j = j + 1 Loop Dligne = Dligne - 1 End Sub