XL 2019 Supprimer des cellules en fonction d'une cellule de la ligne

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Décembre 2020

• #2

Bonjour Chris,
Prenez l'habitude d'indenter:

VB:

Sub Macro2()
Dim i, j
For i = 7 To 65535
    If CDate(Cells(i, 1).Value) = "01/01/1900" Then
        For j = 1 To 8
            Cells(i, j).ClearContents
        Next j
    End If
Next i
End Sub

Il manquait un End If, et il y avait un End With en trop.

En plus vous pouvez réduire la boucle en allant seulement jusqu'à le dernière cellule occupée avec :

Code:

For i = 7 To Range("A65500").End(xlUp).Row

 

Vote positif 0 Vote négatif

C

chris4785478547

XLDnaute Junior

• 10 Décembre 2020

• #3

sylvanu à dit:

Bonjour Chris,
Prenez l'habitude d'indenter:

VB:

Sub Macro2()
Dim i, j
For i = 7 To 65535
    If CDate(Cells(i, 1).Value) = "00/01/1900" Then
        For j = 1 To 8
            Cells(i, j).ClearContents
        Next j
    End If
Next i
End Sub

Il manquait un End If, et il y avait un End With en trop.

En plus vous pouvez réduire la boucle en allant seulement jusqu'à le dernière cellule occupée avec :

Code:

For i = 7 To Range("A65500").End(xlUp).Row

Cliquez pour agrandir...

Merci Sylvanu pour cette réponse.
Je venais de voir que j'avais omis d'enlever le End with mais le End if m'échappait toujours. Merci.
Pourtant, de mon côté j'ai une erreur:

"Erreur d'exécution 13: Incompatibilié de type"

VB:

Sub Macro2()
'
' Macro2 Macro
'

Dim i, j

    For i = 7 To 65535
        If CDate(Cells(i, 1).Value) = "00/01/1900" Then
            For j = 1 To 8
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
End Sub

Si vous avez une idée...
Bien sûr, dès que ça fonctionnera, je raccourcirai mon code avec la proposition.
Merci

 

Dernière édition: 10 Décembre 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2020

• #4

Bonjour le fil

Fonctionne chez moi
(avec ce petit biais )

VB:

Sub Macro3()
Const X = #12/31/1899#
Dim i, j
For i = 7 To 65535
    If Cells(i, 1).Value = X Then
        For j = 1 To 8
            Cells(i, j).ClearContents
        Next j
    End If
Next i
End Sub

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 10 Décembre 2020

• #5

Bonjour à tous,

ou bien, le 01/01/1900 étant 1 :

VB:

    Dim i As Long
    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1).Value = 1 Then
            Cells(i, 1).Resize(, 8).ClearContents
        End If
    Next i

eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2020

• #6

Bonsoir eriiic

Y a pas photo entre un banal 1 et ce si particulier 31

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 10 Décembre 2020

• #7

Certes oui
Mais je n'ai pas compris pourquoi vous prenez le 00/01/1900 (ou 31/12/1899) alors qu'il parle d'un 1 et non d'un 0 (?)
Quoiqu'il en soit, inutile de s'encombrer d'un CDate()

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2020

• #8

Re

Moi c'est à cause de

VB:

Sub Test()
[A1] = "01/01/1900"
MsgBox [A1].Value
End Sub

Ce qui m'a permis de re-découvrir rétro-news
Donc rien que pour cela, merci à chris pour sa question

NB: Si jamais il y avait des vrais 1 au milieu des 01/01/1900
Avec le X, c'est plus sexy, non ?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 11 Décembre 2020

• #9

Ah oui, c'est vrai que vba ne démarre pas les dates le même jour.
Tout les 1 sont vrais non ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #10

Bonjour à tous ,

Pour le fun :

VB:

Sub Macro1()
Dim x
   Application.ScreenUpdating = False
   For Each x In Range(Range("a7"), Cells(Rows.Count, 1).End(xlUp)).Cells
      If IsDate(x) Then If x = 1 Then x.Resize(, 8).ClearContents
   Next x
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Décembre 2020

• #11

Re

je voulais dire si il y a des 1 qui ne correspondent pas à 01/01/1900 mais à des 1 fait à la main, sans pesticides
Et les données associées à ces vrais 1 ne doivent pas être effacés.
Avec mon code, seuls les 01/01/1900 sont traitées

EDITION: Pan sur le nez
Au coin, Staple, j'ai dit une cronerie
Désolé.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #12

Bonjour @Staple1600

Staple1600 à dit:

mais à des 1 fait à la main, sans pesticides
Et les données associées à ces vrais 1 ne doivent pas être effacés.

Cliquez pour agrandir...

N'est ce pas ce que fait mon code ?

 

Dernière édition: 11 Décembre 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Décembre 2020

• #13

Bonsoir mapomme

Je ne sais pas ce que fait ton code.
Mais je sais que je t'ai pas vu passé dans le fil.

C'est normal!

Je suis au coin.
(cf mon précédent message)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #14

Staple1600 à dit:

Je ne sais pas ce que fait ton code.
Mais je sais que je t'ai pas vu passé dans le fil.

Cliquez pour agrandir...

Faux arrêter le chouchen. C'est pas bon pour toi à ton âge

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Décembre 2020

• #15

mapomme à dit:

Faux arrêter le chouchen. C'est pas bon pour toi à ton âge

Cliquez pour agrandir...

C'est pas faux qu'il faut mais faux est qu'il faux arrêter.

OK, je retourne au coin

 

Vote positif 0 Vote négatif