yERO_
Messages postés2Date d'inscriptionmercredi 30 mai 2007StatutMembreDernière intervention22 septembre 2008
-
22 sept. 2008 à 12:18
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 2013
-
22 sept. 2008 à 20:02
Bonjour,
Je vous explique ma requête !
J'ai un classeur "TBM ACP.xls", un classeur "aout 2008.xls".
Dans le classeur TBM ACP.xls ; Je voudrais lire l'onglet Détail ACP, lire la collone "B" voir si une celulle (B,i) correspond a un mot prédéfinit, si Oui, alors copié la valeur de la cellule (O, i+x) ( il y aura d'autre valeur a copié ) et la mettre dans la celulle du classeur "aout 2008.xls".
Je voudrais effectuer une boucle qui lit le classeur TBM ACP.xls, trouve le mot clef, copie les valeur en (O, i+x) et me les copies dans le classeur "aout 2008.xls" est ce possible ?
Si oui je vous demande de l'aide je doit faire ca pour mon stage... je n'y arrive pas .. je cherche de mon côté en vous attendant !
algorithme :
i = 9
tant que i < 810
Si (B,i) = "750670"
alors
copier la valeur (O, i+3) dans le classeur aout 2008.xls dans la celulle ( D,3)
copier la valeur (O, i+4) dans le classeur aout 2008.xls dans la celulle ( D,4)
copier la valeur (O, i+5) dans le classeur aout 2008.xls dans la celulle ( D,5)
copier la valeur (O, i+6) dans le classeur aout 2008.xls dans la celulle ( D,6)
i = i + 27;
Sinon
i = i + 27;
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 22 sept. 2008 à 20:02
bonjour ,
voici un morceau de code pour t'aider:
**********
Dim LignedebutColonneB As Integer
Dim LigneFinColonneB As Integer
Dim i As Integer
Dim MotàRechercher
'Mot à rechercher
MotàRechercher = "Exemple"
'Depart colonne B
LignedebutColonneB = 1
'Fin colonne B
LigneFinColonneB = ThisWorkbook.Worksheets("Détail ACP")_Range("b65536").End(xlUp).Row
'Ne se passe rien si rien dans colonne b
If LignedebutColonneB >= LigneFinColonneB Then
Exit Sub
End If
'--------------------------------------------------
'Utilise Workbook.Open pour ouvrir "aout 2008.xls".
'--------------------------------------------------
'Parcours les lignes de la colonne B
For i = LignedebutColonneB To LigneFinColonneB
'Mot trouvé
If Trim(ThisWorkbook.Worksheets("Détail ACP"). _
Cells(i, 2).Value) = MotàRechercher Then
MsgBox "Mot trouvé"
'------------------------------------------------
'Utilise Copy pour transferer la copie.
'Utilise End pour placer ta copie à la fin.
'-------------------------------------------------
End If
Next
'-------------------------------------------------
'Utilise Close pour fermer le classeur
'-------------------------------------------------
Comme c'est la règle sur ce forum , il faut que tu
cherches un peu.Sert toi des aides
A++