Problème condition en VB
Résolu
Assefoug
Messages postés
36
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis actuellement sur un projet, pour mon stage de BTS première Année, et j'ai un petit prblème avec mon code.
Je veu lui faire recopier les lignes d'une feuille dans une autre feuille ( Jusqu'ici , aucun problème), mais Seulement les Ligne ou Apparaisse dans une colonne , IY, BO et TY en debut de valeur ...
J'espère que j'ai été clair..
Voila un bout de mon code , le problème c'est qu'il ne rentre jamais dans le If, alors qu'une valeur possède IY au debut ...
Do While Cells(i, 2) <> "" Or Cells(i, 5) <> ""
Windows("Programme_P2.xls").Activate
Cells(i, 12).Select
If Left(Cells(i, 12), 2) = "IY" Then
Cells(i, 2).Select
Selection.Copy
Windows("Travail1.xls").Activate
Cells(j, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
i = i + 1
j = j + 1
Loop
Merci d'avance ,
Assefoug.
Je suis actuellement sur un projet, pour mon stage de BTS première Année, et j'ai un petit prblème avec mon code.
Je veu lui faire recopier les lignes d'une feuille dans une autre feuille ( Jusqu'ici , aucun problème), mais Seulement les Ligne ou Apparaisse dans une colonne , IY, BO et TY en debut de valeur ...
J'espère que j'ai été clair..
Voila un bout de mon code , le problème c'est qu'il ne rentre jamais dans le If, alors qu'une valeur possède IY au debut ...
Do While Cells(i, 2) <> "" Or Cells(i, 5) <> ""
Windows("Programme_P2.xls").Activate
Cells(i, 12).Select
If Left(Cells(i, 12), 2) = "IY" Then
Cells(i, 2).Select
Selection.Copy
Windows("Travail1.xls").Activate
Cells(j, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
i = i + 1
j = j + 1
Loop
Merci d'avance ,
Assefoug.
A voir également:
- Problème condition en VB
- Excel cellule couleur si condition texte - Guide
- Langage vb - Télécharger - Langages
- Excel condition ou - Guide
- SI cellule =tel couleur alors texte reporter ✓ - Forum Excel
- Vb runtime - Télécharger - Divers Utilitaires
4 réponses
Bonjour,
dans "programme_P2" peut-être faudrait il préciser l'onglet style sheets("nom_onglet")
difficile à dire sans connaitre ton contexte
dans "programme_P2" peut-être faudrait il préciser l'onglet style sheets("nom_onglet")
difficile à dire sans connaitre ton contexte
Salut,
Il n'y a aucun blanc au début :/
Le code est Correcte mais seulement, il ne rentre pas dans cette maudit boucle.
Merci de ton aide
Assefoug
Il n'y a aucun blanc au début :/
Le code est Correcte mais seulement, il ne rentre pas dans cette maudit boucle.
Merci de ton aide
Assefoug
