Discussion :

[melodyyy]

J'ai jamais su et ça m'interesse...

Comment en macro on peut dire voila quand tu as trouvé la ligne que je veux tu copies les cellules que je veux à partir de cette fameuse ligne...

Vouez ce que je veux dire ? c'est pas pour moi, c'est pour mon stagiaire

[ouskel'n'or]

Un post sur deux parle de ça... Un peu de recherche sur le forum te donnerait la réponse. Mais faut chercher un peu...
Je reconnais, c'est fatigant !

[melodyyy]

lol oui je m'en doute ! justement je cherche mais avec les mots clés tapé j'ai pas trop de réponse...
sachant que je précise (ouai je suis pas trop blonde) je connais je peux pas taper direct l'adresse de la cellule, parce que ça dépend de la ligne...et sans critère parce que dans tout les cas c'est une date...fin voila c'est vrai que j'ai pas trop d'idée je ocntinue à chercher dans le forum

[ouskel'n'or]

Edit
Et en plus tu as la réponse dans une de tes discussions. Tu te moques ?
Quand tu as la dernière ligne renseignée de ton fichier, tu ne sais pas faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaLigne = Derniereligne + 1

Regarde dans toutes tes discussions, tu dois avoir la réponse 225 fois

[melodyyy]

ah oui j'ai trouvé ton poste copier, coller, insérer etc...le schmilibilick c'est que je veux faire cellule par cellule si tu veux, et pas de plage c'est bien la mon problème

je me moque pas ça continue à bugguer ça d'ailleurs

Nan je veux juste dire voila quand tu as trouvé la ligne, tu prend la cellule de la colonne G de la même ligne, et tu la colle ailleurs..et ben c'est le cellule de la colonne G de la même ligne que je vois pas comment qu'on fait

ça bug pu mais je trouve pas la réponse à ma question
Parce que je ne veux copier que quelques cellules, pas une plage si tu veux et que sur la ligne correspondante, donc j'ai pas d'adressage exact

[alsimbad]

pour donner raison a ouskel'nor

salut melodye
je vois pas tellement d'autre solution que de faire un jolie boucle
supposons que tu écrive le resultet sur ligne3 et que tu soustraie L2-L1
Code :
for each cel in L3if isnumeric(cel.offset(-1,0)-cel.offset(-2,0))thencel = cel.offset(-1,0)-cel.offset(-2,0))next cel

et c'est dans ton propre post
http://www.developpez.net/forums/sho...d.php?t=296122
faut juste extrapoler un peu, et encore vraiment pas beaucoup
mais bon, c'est sur, ça saute pas forcément aux yeux tout seul

[melodyyy]

yes je vais exploiter ça
Savez quoi ? le pire c'est que j'ai lu et ça m'a pas fait tilt...mais ça c'est du à aujourd'hui...
Pi en + mon stagiaire qui est devenu pas mauvais hein il m'a dit de faire ça aussi...et ben nan aujourd'hui fallait que je sois je passerais à demain

merci les gars je vais exploiter ça, pi désolé, la dame quand elle sent qu'elle devient blonde ça l'énerve...

j'ai pas tester encore je vais le faire mais dans mon ancien post on parlait de ligne pas de cellule c'est pareil ?
De plus, cette méthode marche si je connais pas l'adresse de la cellule ? Je me repère à quoi ? parce que je sais pas si ce qu'il va trouver va etre en ligne 10 ou 1 ou 12 par exemple et du coup voila je suis un peu perdu et j'essai de m'y retrouver

voici ce que j'ai fais mais il se passe rien....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Sub macropatrice()
 
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim Plage1 As Range
Dim Plage2 As Range
Dim c
Dim i As Integer
 
i = 1
 
'Ouvrir le planning: j'ai pas l'adresse non plus'
'Ouvril le fichier csv: je peux pas mettre l'adresse je l'ai pas
 
    'Gèle l'écran pour accélérer le traitement
    Application.ScreenUpdating = False
    Set FL1 = Workbooks("1Planning_de_synthese_des_versions_v6.xls").Worksheets("Détails")
    Set FL2 = Workbooks("yTTxpPR00_02.csv").Worksheets("yTTxpPR00_02")
     Set Plage1 = FL1.Range(Cells(9, 4), Cells(FL1.Cells(65535, 4).End(xlUp).Row, 9))
      Derniereligne = FL2.Cells(65535, 5).End(xlUp).Row
Adresse = Range(Cells(2, 5), Cells(Derniereligne, 5)).Address
Set Plage2 = FL2.Range(Adresse)
 
'parcours les cellules de la colonne 4 feuille Planning
    For Each Cell In Plage1
 
'recherche de l'équivalence dans colonne 5 feuille yTTxpPR00_02
        With Plage2
            Set c = .Find(Cell.Value, LookIn:=xlValues)
 
'Donnée trouvée, on passe, donnée non trouvée on copie les cellules correspondante des colonnes G,H,I de yTTxpPR00_02.csv à Planning
            'je sais pas dire'
            If Not c Is Nothing Then
             i = i + 1
             Else
            ActiveCell.Offset(n, 3) = ActiveCell.Offset(n, 3)
             End If
 
            Set c = Nothing
            End With
 
    Next
    Application.ScreenUpdating = False
    Set FL1 = Nothing
    Set FL2 = Nothing
End Sub

Voyez vous le pourquoi du comment vous ?