Test chaines de caracteres puis recopie la valeur

Résolu
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,
Je suis debutant en VBA et cherche un peu d'aide..; la page blanche me terrifie et je n'arraive pas à m'en sortir...
Voici ce que je recherche à faire.
Dans un tableau excel, j'ai une colonne remplie de valeur. Le nombre de ligne n'est pas fixe...
Lorsque la cellule ne contient pas la chaine de caracteres("*branch*") je veux copier la valeur de la cellule dans la colonne G (par exemple...) et ceci tant que qu'il y a une valeur dans la colonne A...
Je vous remercie d'avance...
A voir également:

6 réponses

Réponse 1 / 6
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour
on copie sur la m^ ligne que A ou à la suite (ligne1,ligne2....) dans G ?

combien de lignes dans A ?
0
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Merci, Je souhaite recopier sur la meme ligne que A... Le nombre de lignes dans la colonne A est variable, il faudrait faire l'operation tant qu'il y a une valeu sur dans la colonne...
Merci
++
0
Réponse 2 / 6
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Merci, Je souhaite recopier sur la meme ligne que A... Le nombre de lignes dans la colonne A est variable, il faudrait faire l'operation tant qu'il y a une valeu sur dans la colonne...
Merci
++
0
Réponse 3 / 6
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Par exemple si en A1, la cellule ne contient pas la valeur "*branch", on recopie cette valeur en G1... Idem en A2 vers G2 et si la cellule contient la valeur "*branch*" alors on ne fait rien... et ceci tant qu'il y a une valeur en An...
Merci pour votre aide
0
Réponse 4 / 6
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Si je te demande le nombre de lignes /100;500;10000 ? c'est parce que la technique employée sera complètement différente !
A toi de voir maintenant si tu veux que j'essaie de t'aider...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Michel de bien vouloir m'aider.. Ce serait 500 max... Je suis completement bloqué.. Merci,
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
proposition 
Option Explicit
'-------------------
Sub copier_si_nonbranch()
Dim Derlig As Integer, Lig As Integer

    Application.ScreenUpdating = False
    Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
    For Lig = 1 To Derlig
        If Not LCase(Cells(Lig, "A")) Like "*branch" Then Cells(Lig, "G") = Cells(Lig, "A")
    Next
End Sub

ATTENTION
un coup tu écris *branch et un autre *branch* ????
0
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   > michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention  
 
Merci Michel, en fait le * c'etait pour dire: qui contient la chaine de caractere "branch". Ca doit etre pour cela que cela ne fonctionne pas.. car chez moi ca recopie la colonne pour la mettre dans la colonne G... :-(
0
Réponse 6 / 6
Houss75 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir Michel,
Cela fonctionne finalement.. Je m’étais trompé dans la recopie et la modif pour l'adapter à mon cas. Merci pour ton aide precieuse.
Merci encore
0