Discussion :

[INFINITY100]

Bonsoir à tous

Voila ci-dessous j'ai une macro de suppression, dans l’ensemble elle fonctionne très bien seulement je voudrai lui ajouter une condition qui se résume comme suit :

Si c'est la dernière ligne qu'on supprime qui est forcément (B12:F12) alors au lieu de .Delete ça sera .Clear

Voici la macro

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
17
18
19
Sub Supprimer_ligne()
Dim c As Range
Set c = ActiveCell
If Not Intersect(c, Range("B12:F1048576")) Is Nothing And Selection.Column <> 1 And Selection.Column <> 7 Then
If Selection.Rows.Count > 1 Then
MsgBox "Vous ne pouvez pas supprimer plusieurs lignes à la fois !", vbCritical, "Suppression impossible"
Exit Sub
End If
If Application.CountA(Cells(c.Row, "B").Resize(, 5)) > 0 Then
  If MsgBox("Voulez-vous vraiment supprimer l'opération attribuée à (" & ActiveCell & ") ?", vbYesNo, "Confirmation") = vbYes Then
    c.EntireRow.Delete
  End If
Else
MsgBox "Vous ne pouvez pas supprimer une ligne vide !", vbCritical, "Suppression impossible"
End If
Else
MsgBox "Vous ne pouvez pas supprimer cette ligne car votre sélection est hors zone de suppression", vbCritical, "Suppression impossible"
End If
End Sub

Merci à vous tous par avance

Cordialement

[tamtam64]

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
17
18
19
Sub Supprimer_ligne()
Dim c As Range
Set c = ActiveCell
If Not Intersect(c, Range("B12:F1048576")) Is Nothing And Selection.Column <> 1 And Selection.Column <> 7 Then
If Selection.Rows.Count > 1 Then
MsgBox "Vous ne pouvez pas supprimer plusieurs lignes à la fois !", vbCritical, "Suppression impossible"
Exit Sub
End If
If Application.CountA(Cells(c.Row, "B").Resize(, 5)) > 0 Then
  If MsgBox("Voulez-vous vraiment supprimer l'opération attribuée à (" & ActiveCell & ") ?", vbYesNo, "Confirmation") = vbYes Then
    c.EntireRow.Delete
  End If
Else
MsgBox "Vous ne pouvez pas supprimer une ligne vide !", vbCritical, "Suppression impossible"
End If
Else
MsgBox "Vous ne pouvez pas supprimer cette ligne car votre sélection est hors zone de suppression", vbCritical, "Suppression impossible"
End If
End Sub

Peux tu nous en dire plus ? tu l'a mis dans un bouton?
Si oui la condition n'est pas compliquée. En fait , je voudrais savoir comment ca fonctionne , tu selectionne une cellule et tu clique sur le bouton?
si c'est le cas c'est un peu inutile non?
Si c'est automatisées alors pourquoi ne pas faire

Code :

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

1
2
3
4
5
6
7
 
Dim MyRange as range
Set AllRange = range("B12:F1048576")
for each MyRange in AllRange
if MyRange.offset(1).value = "" then 
MyRange.offset(1).rows.clearcontents
end if

[INFINITY100]

Bonjour tamtam64

Merci pour la réponse au faite pour les question oui la ligne se supprime au clique sur un bouton et pour la suppression oui soit tu sélectionne une ligne en B5 et F10000 soit tu te positionne sur une des cellules de la dite zone et tu supprime

Voila pour être plus claire je joins le fichier

Merci encore

[joe.levrai]

Bonjour,

tester le numero de la ligne (voir ligne 9) juste avant de supprimer, et agir en conséquence

[INFINITY100]

Bonjour

Merci joe levrai pour le fil mais étant débutant en VBA je trouve pas à imposer le test qui se résume comme suit : Si on supprime une ligne quand il y plusieurs données c'est (c.EntireRow.Delete) mais si c'est la dernière ligne de données qu'on supprime alors c'est (c.EntireRow.Clear)

Quelqu'un aurai une solution

Merci par avance

[clementmarcotte]

IV-N. Lycéen, collégien, étudiant, (bref un apprenti développeur)▲


Vous êtes les bienvenus ici pour vous former.

Vous former, cela veut dire lire les cours et tutoriels :
http://www.developpez.com/cours/

et éventuellement poser vos questions en français correct si vous avez besoin d'aide, dans un seul forum, et dans le respect des règles du forum.

Nous ne sommes pas là pour faire vos exercices.
Entendez par là que nous serons bien évidemment tout à fait d'accord pour vous aider à résoudre votre problème, pour autant que vous fassiez vous-même des efforts.
Postez votre question, mais proposez également un début de solution, un bout de code, etc. En aucun cas, nous ne ferons le travail à votre place.

Merci de votre compréhension.

PS : Merci aux étudiants qui participent à developpez.com en écrivant des tutoriels ou en répondant aux messages des autres sur des sujets qu'ils maîtrisent bien.

Tu ouvres l'enregistreur de macros

Tu sélectionnes "A1" sur une feuille avec des lignes occupées

tu fais CtRL + flèche vers le bas

Tu termines l'enregistrement

Ensuite, avec ton aide de VBA, Range et Cell et Cells, tu es capable de trouver, l'adresse, le numéro de ligne et le numéro de colonne de la cellule où ton raccourci-clavier t'a amené.

[joe.levrai]

Bonjour,

qu'est ce que tu n'as pas compris dans ce que j'explique ? Tout y est

on essaye autrement :

- entre .delete et .clear dans ton code, quelle sera l'unique condition à vérifier ?

tester le numero de la ligne

- comment faire ce test ?

(voir [la propriété adéquate à la] ligne 9)

- où faire ce test ?

juste avant de supprimer

- Bonus : maintenant qu'est ce que tu vas faire ?

agir en conséquence

[INFINITY100]

Merci infiniment à vous tous problème résolu