Discussion :

[cobra38]

Bonjour à Tous

Mon petit problème du jour est le suivant :
Une feuille = A ( A : D ) avec
Ligne 1 = titre et ligne 2 = cellules de référence
Un USF = Toto
Pb : lorsque je lance l'USF ( inititialize ) je voudrai "deleter" les lignes de A
mais pas la ligne 2
j'ai fait ce code mais il se trouve que je n'arrive pas à fiabiliser le resultat
il faut plusieurs relances pour obtenir le but recherché

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Lig = A.Range("A65535").End(xlUp).Row  'No de la dernière ligne renseignée
With A
   If Lig > 1 Then ' ligne de titre
      For i = 2 To Lig
        If i > 2 Then
          .Range("A" & i, "D" & i).EntireRow.Delete ' delete la ligne autre que celle N°2
        Else
          .Range("A" & i, "D" & i).EntireRow.ClearContents ' Effece le contenu de la ligne N°2
        End If
        Next
     End If
End With

Un petit coup de main serait super sympa
Mille mercis par avance
A++

[Pierre Fauconnier]

Bonjour

Personnellement, je me tracasserais pas d'essayer de ne supprimer que les lignes utilisées.

Il n'est pas nécessaire de boucler. Utilise ceci

Code :

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

1
2
rows("3:65536").delete
rows("2:2").clearcontents

Si tu dois supprimer sous conditions et que tu boucles, il est préférable que tu partes du bas du tableau pour ne pas "sauter" de ligne durant la boucle

[cobra38]

Merci Pierre,

je vais essayer ton conseil , en fait si je pratique comme çà c'est que j'ai trouver plus pratique de mettre à "blanc" la 2eme ligne ( celle des données )
car elle est formatée puis peut être recopiée plus facilement , ainsi je suis certain de conserver le formatage et la même largeur de ligne sans prog.

A+

[Pierre Fauconnier]

La deuxième ligne de mon code remet la ligne 2 "à blanc"

[cobra38]

Ok Marche nickel !!!

j'ai mis çà pour remplacer le code :

Code :

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

1
2
3
4
With A
  .Rows("3:65536").Delete
  .Rows("2:2").ClearContents
End With

Je ne savais pas qu'il prenait => .Rows(...

Mille Mercis
A+