Probleme pour un planning

[rud]

bonsoir, les webmasters

merci pour vos aides que vous m'apportez

mon probleme est tres simple . Je cherche un moyen de définir une condition à mon probleme . Voilà

Private Sub effacer_Click()

maligne = ActiveCell.Row

Range("AK" & maligne) = Range("AK" & maligne) - 1
Range("AN" & maligne) = Range("AK" & maligne) * Worksheets("Accueil").Range("O6")

Range("AJ" & maligne) = Range("AJ" & maligne) - 1
Range("AN" & maligne) = Range("AJ" & maligne) * Worksheets("Accueil").Range("O5")


End Sub


J'ai fait des tests comme if then...else end if etc. Rien se déclenche , pouquoi ?

Cordialement Rud

 

[PascalXLD]

Re : Probleme pour un planning

Salut rud

Il me semble qu'on se connait 😉 et ce code me dit quelque chose

Bon il faudrait que tu expliques un peu plus ce que tu veux avec un petit fichier exemple sans les données

Allez bonne soirée

 

[rud]

Re : Probleme pour un planning

Bonsoir, webmaster
effectivement on se connait, ce que tu m'as donné fonctionne tres bien, j'ai pu les rajouter à mes cellules cool !!! maintenant je cherche un moyen pour les effacer quand je clic. " je cherche une condition " comme un décompte.

merci pour l'aide

Cordialement Rud

 

[PascalXLD]

Re : Probleme pour un planning

RE

Mais quelle est ta condition. Comment on sait qu'on doit retirer plutot qu'ajouter ??

PS : Le webmaster c'est David 😉