Discussion :

[INFINITY100]

Bonjour

je cherche a modifier cette ligne de la macro à ce qu'au lieu de compter toute les cellules de colonne A le comptage débute de la cellule A12 jusqu'à A100

Code :

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

derniereLigne = Range("A" & Rows.Count).End(xlUp).Row

Merci mes amis

[Docmarti]

Bonjour.

Veux-tu dire que tu veux le numéro de ligne de la dernière cellule non vide du Range("A12:A100") ?

[INFINITY100]

Bonjour Docmarti

ofaite ce que je veux dire récupérer le numéro de la dernière ligne non vide juste de la zone A12 A100 c'est à dire il ignore les cellule d'avant 12 et après 101 en d'autre terme uniquement ce qui se trouve dans la plage A12 A100

Merci

[Docmarti]

Bonjour Docmarti

ofaite ce que je veux dire récupérer le numéro de la dernière ligne non vide juste de la zone A12 A100 c'est à dire il ignore les cellule d'avant 12 et après 101 en d'autre terme uniquement ce qui se trouve dans la plage A12 A100

Merci

Voici 2 techniques différentes, mais tout aussi efficaces l'une que l'autre.
EDIT: A adapter selon ce que tu veux comme résultat si toutes les cellules sont vides.
EDIT: A adapter aussi selon que tu veux tenir compte de la présence d'une formule dans les cellules ou seulement de valeurs.

Code :

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

1
2
3
4
5
6
7
8
9
Sub TechniqueSimple()
 
For i = 100 To 12 Step -1
 
If Cells(i, 2).Value <> "" Then dernligneNonVide = i: Exit For
 
Next
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TechniqueUtilisantFIND()
 
Set r = Range("A12:a100")
 
With r
 
 Set rg = .Find(what:="*", After:=.Cells(1, 1), SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlPart)
 
End With
 
 If rg Is Nothing Then DernLigne = r.Row Else DernLigne = rg.Row
 
End Sub

[Theze]

Bonjour,

Une autre piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
 
    Dim Lgn As Integer
 
    With Range("A12:A101") 'définie à 101 pour que la recherche commence à la ligne 100
 
        Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row
 
    End With
 
    MsgBox Lgn
 
End Sub

Hervé.

[INFINITY100]

Bonsoir

Merci mes amis pour vos réponses c'est très gentil les macros fonctionnent mais elles donnent pas le résultat voulu

Donc voila pour être plus claire je joins le fichier de ce que je veux avoir comme résultat

Cordialement