Test chaines de caracteres puis recopie la valeur

Résolu/Fermé
Houss75 Messages postés 8 Date d'inscription lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015 - 30 nov. 2015 à 13:59
Houss75 Messages postés 8 Date d'inscription lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015 - 30 nov. 2015 à 18:12
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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 nov. 2015 à 14:14
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 lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015
30 nov. 2015 à 14:45
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
Houss75 Messages postés 8 Date d'inscription lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015
30 nov. 2015 à 14:36
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
Houss75 Messages postés 8 Date d'inscription lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015
30 nov. 2015 à 14:39
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 nov. 2015 à 16:12
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
Houss75 Messages postés 8 Date d'inscription lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015
30 nov. 2015 à 16:21
Merci Michel de bien vouloir m'aider.. Ce serait 500 max... Je suis completement bloqué.. Merci,
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 30/11/2015 à 16:40
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 lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
30 nov. 2015 à 17:53
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
Houss75 Messages postés 8 Date d'inscription lundi 30 novembre 2015 Statut Membre Dernière intervention 7 décembre 2015
30 nov. 2015 à 18:12
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