XL 2010 Effacer le contenu d'une ligne

Toufi · 23 Mai 2019

Bonjour à tous
Noob sur le VBA, j'ai parcouru le forum sans trouver la solution à mon problème.
Dans mon code, si je rencontre l'erreur 13 (division par 0), j'ai une pop-up qui informe l'utilisateur de l'arrêt du traitement.

Après avoir cliquer sur "Ok", je souhaite supprimer tout le contenu de la dernière ligne fraîchement créée.
Je sais que je suis tout prêt, mais lorsque j'exécute mon code seul le contenu de la cellule A* est supprimée, j'ai toujours les autres contenus des cellules de la même ligne de B à G renseignées.

Voici mon bout de code
GestionErreur:

If Err = 13 Then
StopMacro = MsgBox("La Cellule CF/Sec de la feuille du mois de " & NomFeuilleMoisACreer & " n'est pas valorisée" & Chr(10) _
& "la procédure va s'arréter")

'Efface le contenu de la dernière cellule saisie
Worksheets("Graphe découpé (2)").Range("A26:G26").End(xlUp).ClearContents

Exit Sub

End If

Merci d'avance pour votre aide

Calvus · 23 Mai 2019

Bonjour et bienvenue,

Essayer comme ceci :
Range(Range("A26").End(xlUp), Range("G26").End(xlUp)).ClearContents

A+

Staple1600 · 23 Mai 2019

Bonsoir le fil,

Si j'ai bien compris, une autre syntaxe: Cells(Rows.Count, 1).End(3).Resize(, 7)
Ci-dessous une macro de test pour illustrer la chose
(à tester sur une feuille vide)

VB:

Sub Test()
Dim RAZ As Range
'/// partie du code génération données de test ///
Randomize 1600
ActiveSheet.UsedRange.Clear
Range("A1:G" & Application.RandBetween(1, 26)) = Application.RandBetween(1, 1600)
'/// FIN partie code génération données de test ///

'autre syntaxe possible et un chouia plus courte
Set RAZ = Cells(Rows.Count, 1).End(3).Resize(, 7)
MsgBox "Plage Cellules: " & RAZ.Address(0, 0) & Chr(13) & "Dernière ligne non vide: " & RAZ.Row, vbInformation
RAZ.Interior.ColorIndex = Application.RandBetween(1, 56) 'ligne juste pour le test
RAZ = "" 'efface le contenu
End Sub

Toufi · 27 Mai 2019

Merci pour vos retours
@Calvus, c'était presque ça, ton code efface toutes mes données :/
@Staple1600, c'est la folie!!! c'est exactement ce que je cherchai, j'ai utilisé ta syntaxe "chouia plus courte"

Bonne journée à tous

@++

Calvus · 27 Mai 2019

Bonjour,

Toufi à dit:
@Calvus, c'était presque ça, ton code efface toutes mes données :/

Oui en effet... du moins certainement...ou encore possible....
Mais ! tout dépend du fichier et des données telles qu'elles sont organisées !
Donc, sans fichier joint, difficile d'avoir une réponse exacte. C'est sûr que si la cellule G de la ligne concernée est vide, on va avoir un problème.

Dans ce cas là, utiliser ce code :

VB:

Range(Range("A26").End(xlUp), Range("A26").End(xlUp).Offset(, 6)).ClearContents

A+

Toufi · 27 Mai 2019

Merci @Calvus
Je suis d'accord avec toi concernant l'absence de fichier joint, je ne l'ai pas mis volontairement pensant que mon problème serait résolu sans lui.
l'avenir, j'en mettrai un systématiquement

XL 2010 Effacer le contenu d'une ligne

Toufi

XLDnaute Nouveau

Calvus

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Toufi

XLDnaute Nouveau

Calvus

XLDnaute Barbatruc

Toufi

XLDnaute Nouveau

Discussions similaires