Discussion :

[Sokol]

Comment récupérer certain data qui sont stockées dans une colonne comme « donne brut ». ( auto-filtering) ..

Bonjour a tous.


J’aimerais sortir certain data d’une colonne qui contient des donnes brutes. ( voir l’exemple dans l’attachement) .


L’idée est d’utiliser une macro d’une forme similaire comme celle ci-dessus mais il y a des choses qui m’échappent et je n’arrive pas a trouver pourquoi ce macro ne fonctionne pas.) ..

Code :

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

1
2
3
4
5
6
7
8
9
10
  Dim bottomA As Integer
     bottomA = Range("A" & Rows.Count).End(xlUp).Row
       Dim y As Integer
         For y = bottomA To 2 Step -1
          If IsDate(y) Then
             y.Offset(0, 3).Value = a.Value  ( wrong comand) !!!!
              if cells ( y, 2) = "U" or Cells ( y, 2) = "I" then
               y.offset (0, 4).Value = a.Value ( Wrong comand) !!!!
    End If
 Next y

Si vous pouvais analyser le macro et les donne dans l’exemple, peut-être on va trouver une solution.

Amicalement

[keygen08]

Bonjour
Quelle macro ne fonctionne pas, module1 ou module2
Quel est le resultat a obtenir car à la lecture du code, cela n'est pas evident.

[Sokol]

Pour faire sortir les dates ..... De la colonne A vers la colonne D

Code :

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

1
2
3
4
5
6
 Dim bottomA As Integer
 bottomA = Range("A" & Rows.Count).End(xlUp).Row
 Dim y As Integer
 For y = bottomA To 2 Step -1
 If IsDate(y) Then
 y.Offset(0, 3).Value = a.Value  ( Wrong comand)

Pour faire sortir les initiales U et I dans une autre colone E

Code :

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

1
2
3
4
5
 
 if cells ( y, 2) = "U" or Cells ( y, 2) = "I" then
y.offset (0, 4).Value = a.Value  ( wrong comand)
 End If
 Next y

[SfJ5Rpw8]

ta variable y est un entier ... tu ne peu pas y appliquer la fonction offset :

Code :

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

 y.Offset(0, 3)

celle-ci s'applique aux objets plages...

[Sokol]

Et quel serait la juste forme applicable pur transférer la valeur trouve dans la colonne D ?

[SfJ5Rpw8]

tiens .. ton code modifié

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
Dim bottomA As Integer
 Dim Sh As Worksheet ' Déclare une feuille .. pour être sur d'agir sur la bonne feuille
 Set Sh = ThisWorkbook.Sheets("Feuil1")
 
 Dim MaCell As Range 'Définit une cellule
 
 bottomA = Sh.Range("A" & Rows.Count).End(xlUp).Row
 
 Dim y As Integer
 For y = bottomA To 2 Step -1
    Set MaCell = Sh.Cells(y, 1) ' MaCell est la cellule de la line en cours ( numéro y) dans colonne 1 (A)
 
 If IsDate(MaCell) Then
    MaCell.Offset(0, 3).Value = MaCell.Value  'Si date copie de A vers D
  End If
 Next

j'ai utilisé une variable worksheet (feuille) sh : pour être sur d'agir sur la bonne feuille....

ensuite voir commentaires....

[Sokol]

It Works...

Il est parfait...

Mercie beaucoup...