Discussion :

[John81]

Bonjour à tous, je recherche comment trouver les numéros de lignes correspondant aux cellules non vides dans une cellules pour ensuite additionner des nombres compris entre ces numéros de lignes (nombre dans une autre colonne).

La Macro suivante ne fonctionne pas:

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
Sub Test10()
 
Dim a As Long, b As Long
Dim c As Range
 
a = Columns("A:A").Find(what:="<>""").Row          
 
b = Columns("A:A").Find(After:=a, what:="<>""").Row        
 
Set c = Range(Cells(3, 2), Cells(a - 1, 2))
 
    If Range("C3").Row <> a Then
    Range("B" & a).Formula = "=SUM(" & c.AddressLocal & " )"
    Else: Range("B" & a).Value = "0"
    End If
 
End Sub

Quelqu'un peut-il me venir en aide? Merci d'avance. John81

[JackOuYA]

Bonsoir john..

j'ai toujours la même réponse :

peu-être sans macro avec seulement une formule somme.si ...

Si tu veux en savoir plus il va falloir développer la phrase :

La Macro suivante ne fonctionne pas:

[ouskel'n'or]

Je réponds au sujet de la discussion

Recherche de cellules non vides dans une colonne

Tu peux utiliser cette méthode en adaptant

Code :

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

1
2
3
4
5
6
7
8
Sub Test3()
    Dim Plage As Range, cell As Range
    Set Plage = ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants, _
        xlNumbers + xlTextValues)
    For Each cell In Plage
        MsgBox cell.Value
    Next
End Sub

Bonne nuit

[John81]

Bonjour à tous,

Merci pour vos réponses.

Pour répondre à la question de JackOuYA sur ma macro, j'ai le message

d'erreur suivant:

"Variable Objet ou variable de bloc With non définie"

Quelqu'un peut-il me venir en aide? Merci John81

[ouskel'n'or]

Dans mon code, Cell est la cellule non vide. Si tu mets

Code :

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

1
2
3
    For Each cell In Plage
        Adres = cell.Address
    Next

tu as l'adresse de la cellule
Et dans cell tu as ce qu'il y a dans la cellule
Et si tu as "a" dans la cellule => Cell = "a"
Bonne journée

[JackOuYA]

Bonjour à tous,

Merci pour vos réponses.

Pour répondre à la question de JackOuYA sur ma macro, j'ai le message

d'erreur suivant:

"Variable Objet ou variable de bloc With non définie"

Quelqu'un peut-il me venir en aide? Merci John81

et sur qu'elle ligne ......?

modifie :

Code :

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

1
2
 
a = Columns("A:A").Find(what:="*").Row

[John81]

J'ai toujours le même message

"Variable Objet ou variable de bloc With non définie"

.

Par exemple si je recherche le numéro de la ligne de la cellule de la colonne A dont la valeur est 0 ou 1, j'ai essayé avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test11()
 
Dim a As Long, b As Long
 
a = Columns("A:A").Find(what:="0").Row
 
b = Columns("A:A").Find(what:="1").Row
 
End Sub

J'ai toujours le même message d'erreur.

[JackOuYA]

en utilisant find comme cela tu aura ton message d'erreur à chaque fois que ta recherche ne raménera rien ...

Code :

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

1
2
3
4
5
6
7
 
Set r = Columns("A:A").Find(what:="0")
If r Is Nothing Then
   MsgBox "Introuvable"
   Exit Sub
End If
a = r.Row

[John81]

Malheureusement, j'ai toujours le message

"Variable Objet ou variable de bloc With non définie"

au niveau de la ligne rouge :

Code :

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

1
2
3
4
5
6
Set r = Columns("A:A").Find(what:="0")
If r Is Nothing Then
   MsgBox "Introuvable"
   Exit Sub
End If
a = r.Row

[LeXo]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim r as range
dim a,b as integer
 
Set r = Columns("A:A").Find(what:="0")
If r Is Nothing Then
   MsgBox "Introuvable"
else
a = r.Row
b = r.Column
 
MsgBox "(" & a & "," & b & ")"
End If

Code :

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

1
2
3
4
5
6
7
8
9
Dim r as range
 
Set r = Columns("A:A").Find(what:="0")
If r Is Nothing Then
   MsgBox "Introuvable"
else
 
MsgBox "(" & r.address & ")"
End If

perso, j'aurais plus fait comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim r As Range
Dim c As Range
 
Set r = ActiveSheet.Range("A1:A24")
 
For Each c In r
    If Not IsEmpty(c) Then
        c.Offset(0, 1).Value = "rempli "& c.column
    End If
Next c

[John81]

Merci à vous tous pour vos réponses. J'ai trouvé la solution à mon problème.

Bonne soirée John81