effacement de toutes les lignes sauf celle qui ont un chiffre > 1 et report de valeur

[arvin]

bonjour à tous !

je bloque sur une macro : ai essayé

For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i) Like "1 " Then Rows(i).Delete
Next i

mais cela ne fonctionne pas

je joins un exemple : en fait je souhaite ne garder que les lignes indiquées en "jaune" et reporter la valeur de la colonne E sur la feuille "report" en fonction du nom de la colonne A

merci de m'éclairer

à bientôt

 

[Gelinotte]

Re : effacement de toutes les lignes sauf celle qui ont un chiffre > 1 et report de v

Bonsoir,

Ceci fonctionne :

For i = Range("A65536").End(xlUp).Row To 1 Step -1
     If Left(Range("A" & i), 4) = "Mar." Then Rows(i).Delete
Next i

G

 

[arvin]

Re : effacement de toutes les lignes sauf celle qui ont un chiffre > 1 et report de v

ah merci , par contre, je voudrais aussi "Mer." or "Jeu." or "Ven." or "Lun." or "Sam." or "Dim."
la macro me dit "incompatibilité de type" : pourtant je change i en integer, byte c'est pareil
tu peux m'aider ?

 

[Gelinotte]

Re : effacement de toutes les lignes sauf celle qui ont un chiffre > 1 et report de v

Bonsoir,

Quoique pas très pro, il reste que c'est opérationnel :

For i = Range("A65536").End(xlUp).Row To 1 Step -1
      If Left(Range("A" & i), 4) = "Dim." Then Rows(i).Delete
      If Left(Range("A" & i), 4) = "Lun." Then Rows(i).Delete
      If Left(Range("A" & i), 4) = "Mar." Then Rows(i).Delete
      If Left(Range("A" & i), 4) = "Mer." Then Rows(i).Delete
      If Left(Range("A" & i), 4) = "Jeu." Then Rows(i).Delete
      If Left(Range("A" & i), 4) = "Ven." Then Rows(i).Delete
      If Left(Range("A" & i), 4) = "Sam." Then Rows(i).Delete
Next i

Il y a sûrement un pro de la photo qui va nous améliorer ceci ...


G

 

[arvin]

Re : effacement de toutes les lignes sauf celle qui ont un chiffre > 1 et report de v

ben pour moi c'est super
par contre, sais tu pour la 2e partie de la question : recherchez la valeur et la copier automatiquement ?
merci beaucoup ça m'aide beaucoup