Discussion :

[Domimart]

Bonjour le forum,

je test les valeurs des cellules d'une colonne N-1 pour renseigner la valeur de la cellule de la colonne N. La position de la colonne N est variable.
Pour cela j'utilise le code suivant qui fonctionne ;

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
Public Sub taches_faites()
'remplissage des taches terminées
Dim Real As Range, CellReal As Range
Application.ScreenUpdating = False
'On Error Resume Next
 
If ActiveCell.Value = "Réalisé" Then
    Set Real = Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(100, 0))
     For Each CellReal In Real
        If CellReal.Offset(0, -1) <> "" Then
           CellReal.Value = "Fait"
        End If
      Next CellReal
    Set Real = Nothing
 
Else: MsgBox ("veuillez sélectionner une case : Réalisé ")
      ActiveCell.Offset(0, 1).Select
End If
 
End Sub

maintenant j' aimerais ajouter une deuxiéme condition qui est la valeur correspondante de la même ligne mais dans la colonne fixe D
en traduction :
If CellReal.Offset(0, -1) <> "" and range ( colonne (D),row de CellReal).value ="blabla" Then execution du code

Comme la position de ma colonne contenant CellReal est variable, je ne peux pas utiliser la propriété Offset.
après plusieurs essais infructueux, je m'en suis tirer avec une formule dans le code suivant :

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
23
24
25
Public Sub taches_faites()
'remplissage des taches terminées
Dim Real As Range, CellReal As Range
Application.ScreenUpdating = False
'On Error Resume Next
 
If ActiveCell.Value = "Réalisé" Then
    Set Real = Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(100, 0))
     For Each CellReal In Real
        If CellReal.Offset(0, -1) <> "" Then
            If CellReal = "" Then
                With CellReal
                    .FormulaR1C1 = "=IF(AND(RC[-1]>0.5,RC4=R2C5),""Fait"","""")"
                    .Value = .Value
                End With
            End If
        End If
      Next CellReal
    Set Real = Nothing
 
Else: MsgBox ("veuillez sélectionner une case : Réalisé ")
      ActiveCell.Offset(0, 1).Select
End If
 
End Sub

mais je pense que je peux mettre directement les deux conditions dans le code sans pour cela utiliser de formule. Toute l'astuce se trouvant dans la référence absolue de la colonne D et la référence relative de CellReal

Si quelqu'un pouvait m'indiquer une piste...
merci beaucoup.

Cordialement
Dom

[jurassic pork]

hello,
tu peux essayer un truc du genre :

Code :

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

 If CellReal.Offset(0, -1) <> "" And Range("D" & CellReal.Row).Value = "blabla" Then

Ami calmant, J.P

[Domimart]

Bonsoir

Merci bien Jurassic pork, ton code fonctionne parfaitement, en fait j'avais essayé un truc du genre :

Code :

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

If CellReal.Offset(0, -1) <> "" And Range("D", (CellReal.Row)).Value = Range("E2").Value Then

avec une virgule et des parenthèses mais cela buggait.
Je connaissais le séparateur "," mais pas le "&" , on l'utilise quand l'abscisse ou l'ordonnée sont définis par un nom c'est ça ?

Merci encore je mets un résolu.

Dom

[Domimart]

Re bonsoir,

Pour ceux que cela interresses, on peut encore simplifier le code, voici donc le code final :

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
Public Sub taches_faites()
'remplissage des taches terminées
Dim Real As Range, CellReal As Range
Application.ScreenUpdating = False
On Error Resume Next
 
If ActiveCell.Value = "Réalisé" Then
    Set Real = Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(100, 0))
     For Each CellReal In Real
        If CellReal.Value = "" And CellReal.Offset(0, -1) <> "" And Range("D" & CellReal.Row).Value = Range("E2").Value Then
            CellReal.Value = "Fait"
        End If
      Next CellReal
    Set Real = Nothing
 
Else: MsgBox ("veuillez sélectionner une case : Réalisé ")
      ActiveCell.Offset(0, 1).Select
End If
 
End Sub

Bon forum à tous !

Dom