Boucle If

[Laurent313131]

Bonjour le forum !

Je crois que je commence à saturer car je n'arrive même plus à faire un boucle If 😱😱

Voici le code :

Sub lance_valeur_cible()
Dim Avant As String
Dim Trois_Quart As String
Dim Meneur As String
Dim poste As String

poste = Range("J24")

If poste = Avant Then
Range("c21") = 100

Else
Range("c21") = 1000

End If

End Sub

En fait en cliquant sur mon bouton de commande, je veux que le code affiche la valeur 100 en C21 si " Avant " est écris en J24. Si Meneur ou trois_quart est écris en J24, je veux que la valeur 1000 s'affiche en C21.

Je vois pas d'où vient le problème même si c'est enfantin ! 😉

MErci.

 

[tototiti2008]

Re : Boucle If

Bonjour Laurent,

à tester,

Sub lance_valeur_cible()
Dim poste As String

poste = Range("J24").value

If poste = "Avant" Then
Range("c21").value = 100

Else
Range("c21").value = 1000

End If

End Sub

 

[Laurent313131]

Re : Boucle If

Merci Tototiti !!!!! Trop de programmation tue la programmation je crois 😛

 

[Laurent313131]

Re : Boucle If

Re,

si je veux que 100 ou 1000 ne s'affiche non pas en C21 mais sur la dernière ligne vide d'un tableau, je fais comment ? Car mon C21 changera si je rajoute des lignes dans le tableau.

Ca serait :

If poste = "Avant" Then
dernière ligne vide de mon tableau = 100.

en utilisant je pense

[A65536].Select
Selection.End(xlUp)(2).Select


Je sais faire sur la première ligne vide du tableau avec par exemple :

Dim dl1 As Integer
dl1 = Cells(20, 3).End(xlUp).Row + 1

Mais pas sur la dernière ligne vide ...

Encore merci !

 

[Fo_rum]

Re : Boucle If

Salut,

à voir :

Sub lance_valeur_cible()
  Dim Derli As Long
  Derli = [A65000].End(xlUp).Row + 1  [COLOR="Green"]'pour ne pas compliquer la ligne suivante ![/COLOR]
  Range("A" & Derli).Value = IIf(Range("J24") = "Avant", 100, 1000)
End Sub

IIf(test,réponse1,réponse2) correspond à =Si(test;réponse1;réponse2)