vba probleme de variable

Version imprimable

18/05/2015, 10h57
weserlide

vba probleme de variable

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:

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

Bonjour,

Code:

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

18/05/2015, 11h17
weserlide

Ce code ne fonctionne pas non plus
18/05/2015, 11h34
Invité

ou à tu placé ce code et comment la tu exécuté?
18/05/2015, 11h39
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
18/05/2015, 11h51
Invité

place le code!
si non place toi dans la macro de test que je t'ai posté et appuis sur la touche [F5]
18/05/2015, 14h02
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

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:

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

19/05/2015, 08h48
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

Par procédure évènementielle peut être

Code:

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

Code:

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

19/05/2015, 10h49
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..

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:

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

19/05/2015, 13h45
weserlide

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