Discussion :

[himbak]

Bonjour
Svp j'ai besoin de savoir comment on peut définir un variable par une condition if lorsqu'elle se vérifier.
J'aimerai que le Variable me donne le numéro de la dernière ligne qui vérifier la condition .
aidez moi svp merci d'avance

[flav_cm]

Bonjour,

Je n'ai pas vraiment compris ta demande, que cherche tu à faire exactement ?

Par exemple, si tu as une colonne dans laquelle se trouvent des nombres croissants et que tu veux trouver la ligne à partir de laquelle le nombre est supérieur à 10 tu peux faire quelque chose du genre :

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 Recherche_valeur()
 
    Dim i As Integer
    Dim var As Byte
 
    var = 10
 
    Do
        i = i + 1
    Loop While Cells(i, 1) < var
 
    MsgBox (i)
 
End Sub

[BENNASR]

bonjour HIMBAK, flav_cm bonjour tout le monde
si tu cherche l'adresse via un textbox adapte ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim plage As Range
Set plage = Sheets("Feuil1").Range("A2:A" & [A65536].End(xlUp).Row)
valrecherché = CDbl(TextBox1.Value)
 i = 0
For Each Cell In plage
 If Cell.Value = valrecherché Then
   MsgBox Cell.Address
   End If
   Next
   End
End Sub

[himbak]

Merci de vos réponses et pardonnée moi si j'ai pas bien expliqué mon problème .
- dans mon Code je veux créer un variable qui prend comme valeur le numéro de la ligne qui vérifier une condition pour l'utiliser dans le cas de Else :


If condition Then résultat1
Else résultat 2

Alors pour moi résultat 2 est dépend de résultat 1

Dans mon résultat 2 je dois créer une formule qui utilise une cellule de la dernière ligne qui vérifier la condition
résultat 1
Merci a vous

[BENNASR]

pour moi j'ai pas compris ta requête
Je crois que si tu poste ton code entre deux balises avec un peu de commentaire tu aura une réponse adéquate
cordialement

[himbak]

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
 
 
Sub calc_rep()
 
Dim DernLigne2 As Integer
 
DernLigne2 = 10 + Range("A" & Rows.Count).End(xlUp).Row
 
For DernLigne2 = 10 To Range("A" & Rows.Count).End(xlUp).Row
 
If Range("K" & DernLigne2).Value = ""    Then
 
Range("k" & DernLigne2).Offset(0, 1).Value = Range("K" & DernLigne2, Range("K" & DernLigne2).Offset(0, -8)).Value
 
Else   'mon problème est dans cette partie du code je veux que le variable DernLigne2 me donne le numéro de la dernière ligne utiliser dans la partie (then) 
Range("K" & DernLigne2).Offset(0, 1).FormulaR1C1 = "= R[0]C[-9]/R[" & DernLigne2 & "]C[-9] * R[-1]C[-9]"
 
 
End If
Next DernLigne2
 
End Sub

[Theze]

Bonjour,

Tu cherche quoi au juste ? La dernière cellule non vide d'une colonne ? Où peut se trouver une certaine valeur dans une colonne ? Comme tu expliques, c'est incompréhensible, précise ta demande !