Visual basic boucle

Fermé

ibral - 10 juin 2010 à 15:30
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 11 juin 2010 à 00:43

Bonjour,
Je cherche une boucle qui cherche et remplace une chaine de caractère dans un fichier excel.
Exemple : je cherche la chaine « jjmmaa » et la remplacer par « 010110 » et si je trouve « SAAMMJJ » la remplacer par « 1100101 ».

Merci d'avance.

A voir également:

Visual basic boucle
Visual basic - Télécharger - Langages
Microsoft 365 basic - Accueil - Microsoft Office
Microsoft visual c++ runtime - Guide
Visual petanque - Télécharger - Sport
Visual paradigm - Télécharger - Gestion de données

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 juin 2010 à 00:43

Bonjour,
Supposons la recherche et changement dans la colonne A (tu ne précise rien)

Sub Remplacer()
Dim Lig As Long
    For Lig = 1 To Range("A65535").End(xlUp).Row
        If Cells(Lig, 1) = "jjmmaa" Then
            Cells(Lig, 1) = "'010110"
        ElseIf Cells(Lig, 1) = "SAAMMJJ" Then Cells(Lig, 1) = "'1100101"
        End If
    Next Lig
End Sub

A+

Discussions similaires

Site de confiance ou non ?

Mon pc s'allume et s'éteint en boucle

Microsoft Visual C++ ? C'est quoi ?

CPU tourne à 100% avec Visual Basic Command Line Compiler