identifier la valeur à la troisime position d'un mot

  • Initiateur de la discussion Initiateur de la discussion awa123
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

awa123

XLDnaute Occasionnel
Bonjour,

Dans la ligne 5 de mon fichier Excel j'aimerais identifier toutes les cellules qui finissent par un 1 et les recopier plus bas. Par exemple O11 O21....

j'ai pensé a un code a peu pré comme celui ci, s'il peut être corrigé ce serait cool

Code:
Sub test()
    Dim Plage As Range
    Dim Cel As Range
    Dim Adr As String
 
With Worksheets("Feuil1")
        'en colonne C à partir de C5
 
        Set Plage = .Range(.Cells(5, 3), .Cells(5,  .Columns.Count).End(xlToRight))
 
End With
 
'Recherche les valeurs qui ont un 1 à la fin sur la ligne 5 (a partir de la cellule C5)
 
Set Cel = Plage.Find(
 
Right(« chercher sur la plage « set Plage », 1) = 1
 
 
'si trouvé, mémorise l'adresse et boucle en inscrivant
'les valeurs inscrites dans la plage nommée qui correspondent
 
If Not Cel Is Nothing Then
 
     Adr = Cel.Address
 
         Do
 		Copier la valeur trouvée dans la cellule C13 D13 …. (plus il y en a plus on copiera les valeurs sur la ligne)
 
End Sub

merci beaucoup!!
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
213
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
483
Réponses
4
Affichages
180
Réponses
10
Affichages
282
Réponses
3
Affichages
665
Retour