vider une ligne VBA - Macro - Code

Bonjour,

J'ai un petit souci,

Voila un code sur VBA qui doit me permettre de vider une ligne sous une condition:

Code:

---

1 2 3 4 5 6 7

Sub test() Dim i As Long Dim j As Long For i = 1 To Range("AS100000").End(xlUp).Row If Feuil1.Range(i, j).Value = "Affecter" Then cells.EntireRow.ClearContents Next End Sub

---

Je n'arrive pas à le faire fonctionner, avez-vous une solution ?

Bien le bonjour,

Déjà, j n'a pas de valeur, mais disons que c'est une erreur de copier-coller. :P
Je te conseille d'utiliser la propriété Rows à la place de Cells.

Code:

---

Rows(i).ClearContent

---

ou alors si tu veux carrément supprimer toute la ligne :

Code:

---

Rows(i).Delete Shift:=xlUp

---

Commence déjà avec ça, ça devrait être pas mal. En espérant avoir aidé :D

Autre question,

En Vba,

Savez vous comment sélectionner de la première cellule non vide d'une feuille excel à la dernière cellule non vide de la même feuille excel.

Le plus simplement possible.

Je souhaite vraiment que cet intervalle soit définit ainsi: Première cellule non vide de la feuille - dernière cellule non vide de la feuille.

Bonjour.

Pour trouver la premiere ligne non vide et la premiere colonne non vide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub tt()   Set MyRange = ActiveSheet.Cells   PremiereColonne: Set apres = MyRange.Cells(MyRange.Rows.Count, MyRange.Columns.Count)   Set resultat = MyRange.Cells.Find(what:="*", after:=apres, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)   If resultat Is Nothing Then MsgBox "Aucune donnee" Else Set PremiereColonne = resultat   'PremiereLigne Set resultat = MyRange.Cells.Find(what:="*", after:=apres, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)   Set PremiereLigne = resultat   MyRange.Cells(PremiereLigne.Row, PremiereColonne.Column).Select End If Stop   End Sub

---