Synthaxe boucle coordonnées de cellules contenant une valeur

Fermé
quentin777 - 3 avril 2017 à 14:40
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 3 avril 2017 à 15:45
Bonjour,

Je souhaiterais que mon code balaye toutes les cellules d'une feuille et qu'il me fasse une nouvelle feuille dans laquelle apparaissent les coordonnées des cellules ayant pour valeur la lettre F (ligne/colonne).

Ce code s'arrête à la première valeur trouvée, et je n'arrive pas à imaginer la syntaxe pour que celui-ci ne s'arrête pas à la première valeur qu'il trouve, mais qu'il balaye bien toute la feuille et qu'il me trouve toutes les cellules contenant la lettre F.
Pourriez-vous m'apporter votre aide sur mon problème ?

PS: je suis débutant en VBA, soyez indulgents ! ;)

Merci d'avance pour votre réponse

-----------------------------------------------------------


Sub trouve_cel_F()

Dim lettre As String
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer

lettre = "F"
Set celluletrouvee = Range("A1:Y75").Find(lettre, lookat:=xlWhole) 'fonction qui cherche la lettre F


If celluletrouvee Is Nothing Then
MsgBox ("il n'y a pas de F dans cette feuille")

Else

ligne = celluletrouvee.Row
col = celluletrouvee.Column

'nouvelle feuille avec tableau, définition des titres des colonnes
Dim Planif As Worksheet
Set Planif = ActiveWorkbook.Sheets.Add
Cells(1, 1) = "Ligne"
Cells(1, 2) = "Colonne"


'insertion des valeurs (coordonnées dans le tableau)
Cells(2, 1) = ligne
Cells(2, 2) = col


1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 3 avril 2017 à 15:58
0