Discussion :

[weserlide]

bonjour,

je voudrais faire en sorte que lorsque une cellule de la colonne 28 est superieur à 5 alors la cellule
à droite = oui.
j'ai essayé avec :

Code :

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

If target.Column = 28 And target.Value > 5 Then target.Offset (0,1) = "OUI"

mais cela ne fonctionne pas.. pouvez vous m'aider svp ?!

cordialement

[Invité]

Bonjour,

Code :

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

1
2
3
Sub test()
Columns(29).FormulaR1C1 = "=IF(RC[-1]>5,""Oui"",""Non"")"
End Sub

[weserlide]

Ce code ne fonctionne pas non plus

[Invité]

ou à tu placé ce code et comment la tu exécuté?

[weserlide]

Je l'ai écris dans le Microsoft Excel Objects de la page en question et je l'ai exécuté avec une macro vide

[Invité]

place le code!
si non place toi dans la macro de test que je t'ai posté et appuis sur la touche [F5]

[weserlide]

Je sais pas si c'est moi mais je n'arrive pas à faire fonctionner cette macro, elle me fait buguer mon excel en voulant je pense mettre des oui dans tout les cellule de la colonne 29

[joe.levrai]

Bonjour,

si la colonne 28 ne contient pas de ligne vide dans ta plage (= ta plage est continue)

une petite variante qui calcule la plage active pour ne mettre que la formule sur ces lignes
pour ne pas alourdir le fichier, la formule est ensuite remplacée par la valeur "oui" ou "non"

si ta plage n'est pas continue, il faut nous expliquer comment elle est agencée

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 Formule()
 
Dim Plage As Range
 
Set Plage = Range(Cells(1, 29), Cells(Columns(28).Find("", , , , xlByColumns, xlNext).Row, 29))
 
With Plage
    .FormulaR1C1 = "=IF(RC[-1]>5,""Oui"",""Non"")"
    .Value = .Value
End With
 
Set Plage = Nothing
 
End Sub

[weserlide]

Bonjour,
Ma plage n'est alors pas continue.
En faite ma feuille se présente sous forme de tableau que l'on va remplir au fur et à mesure.
Et je voudrais que des qu'une cellule de la colonne 28 est strictement supérieur à 5, alors la cellule d'à côté qui est dans la colonne 29 devient "OUI" , sinon "NON".
J'espère être clair ..

Merci pour votre aide

Sachant qu'en haut de chaque colonne présente le titre de la colonne

[joe.levrai]

Par procédure évènementielle peut être

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column <> 28 Or Target.Row = 1 Then Exit Sub
 
If Target.Value = "" Or Not IsNumeric(Target.Value) Then
    Target.Offset(0, 1) = ""
    Exit Sub
End If
 
If Target.Value > 5 Then
    Target.Offset(0, 1) = "OUI"
Else
    Target.Offset(0, 1) = "NON"
End If
 
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
If (Target.Column = 28 and Target.Row> 1 and val("" & Target.Value )> 5 Then
    Target.Offset(0, 1) = "OUI"
Else
    Target.Offset(0, 1) = "NON"
End If
 
End Sub

[weserlide]

Merci Rdurupt et Joe, vos programmes fonctionnent pour ce que j'ai demandé.
Cependant, j'ai oublié de préciser que je voulais faire ceci pour plusieurs colonnes, donc le Target.column <> 28 m'ennui un peu..

[joe.levrai]

En hybridant nos deux propositions

tu dois juste indiquer le numero des colonnes dans le "Case 28, 33, 42"
j'ai ajouté un "Case Else" qui ne sert à rien, c'est juste pour ta compréhension (tu peux supprimer après avoir compris)

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Row = 1 Or Not IsNumeric(Target.Value) Then Exit Sub
 
Select Case Target.Column
    Case 28, 33, 42
        If Target.Value > 5 Then
            Target.Offset(0, 1) = "OUI"
        Else
            Target.Offset(0, 1) = "NON"
        End If
    ' facultatif, c'est juste pour comprendre
    Case Else
        Exit Sub
    ' fin du facultatif
End Select
 
End Sub

[weserlide]

Ah merci beaucoup c'est bon ça marche !!