Test chaines de caracteres puis recopie la valeur
Résolu
Houss75
Messages postés
8
Statut
Membre
-
Houss75 Messages postés 8 Statut Membre -
Houss75 Messages postés 8 Statut Membre -
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...
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...
6 réponses
-
Bonjour
on copie sur la m^ ligne que A ou à la suite (ligne1,ligne2....) dans G ?
combien de lignes dans A ?
-
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
++ -
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 -
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...
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Merci Michel de bien vouloir m'aider.. Ce serait 500 max... Je suis completement bloqué.. Merci,
-
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* ????
-
-
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
