Discussion :

[manufer]

Bonjour,

J'ai un petit souci,

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

Code :

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

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 ?

[Kentarosan]

Bien le bonjour,

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

Code :

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

Rows(i).ClearContent

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

Code :

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

Rows(i).Delete Shift:=xlUp

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

[manufer]

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.

[Docmarti]

Bonjour.

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

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
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