Bonjour,

Explication/Exemple :

Je suis à la ligne 10 colonne G, je cherche la première cellule pleine de cette ligne, j'arrive donc à la ligne 10 colonne Z. Arrivé là, je veux lire la date (situé à la ligne 5 de cette même colonne). Je veux copier cette date et la coller à la ligne 10 colonne B.

Il peut y avoir 1000 lignes, l'objectif final est de faire un tri par date de la colonne B.


Aidez moi s'il vous plait,

merci



ETAT D'AVANCEMENT : 100%

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
Sub datedébut()
 
'lecture de la première cellule pleine d'une ligne
 
Dim i, j As Variant
 
For i = 15 To 1000
 
For j = 7 To 255
 
  If Cells(i, j).Value <> "" Then Exit For
 
Next j
 
'Affecter la valeur X de la cellule Y à partir de la cellule Z
 
datecherchee = Cells(8, j).Value    'cellule Z
Cells(i, 5).Value = datecherchee    'cellule Y
 
Next i
 
End Sub