Programmation VBA
Résolu/Fermé
A voir également:
- Programmation VBA
- Programmation - Guide
- Application de programmation - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
5 réponses
Merci pour ta réponse mais ca ne fonction ne pas..
je te montre mon code :
Sheets("Source").Select
Range("B2").Select
Do While ActiveCell <> ""
If ActiveCell.Cells = *ASH* Then
etc...
Else
ActiveCell.Offset(1, 0).Select
le = suivi *AHS* ne fonctionne pas...
Tu aurias une autre solution stp?
je te montre mon code :
Sheets("Source").Select
Range("B2").Select
Do While ActiveCell <> ""
If ActiveCell.Cells = *ASH* Then
etc...
Else
ActiveCell.Offset(1, 0).Select
le = suivi *AHS* ne fonctionne pas...
Tu aurias une autre solution stp?
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 215
5 janv. 2008 à 21:50
5 janv. 2008 à 21:50
bonsoir,
essaie avec:
If InStr(ActiveCell.Value, "ASH") Then
Mais ce n'est pas necessaire et même déconseillé d'activer ou selectionner la cellule tout le temp, ça ralentit le programme.
Tu peux incrémenter une variable i et t'en servir dans l'offset ce qui donne:
if InStr( [B2].offset(i,0).value, "ASH") Then
...
endif
i=i+1
idem dans le test du while
eric
essaie avec:
If InStr(ActiveCell.Value, "ASH") Then
Mais ce n'est pas necessaire et même déconseillé d'activer ou selectionner la cellule tout le temp, ça ralentit le programme.
Tu peux incrémenter une variable i et t'en servir dans l'offset ce qui donne:
if InStr( [B2].offset(i,0).value, "ASH") Then
...
endif
i=i+1
idem dans le test du while
eric
Posotaz
Messages postés
489
Date d'inscription
samedi 23 juin 2007
Statut
Membre
Dernière intervention
19 juin 2011
225
5 janv. 2008 à 22:16
5 janv. 2008 à 22:16
[EDIT : Réponse donnée en double]
J'allais proposer une solution avec des expressions régulières mais malheureusement ça n'existe pas par défaut en VBA.
J'allais proposer une solution avec des expressions régulières mais malheureusement ça n'existe pas par défaut en VBA.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question