Bonjour,

Voici une portion code que j'ai rédigé et qui me pose souci :

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
26
27
28
 
Sheets(Source1).Activate
    Cells(77, Col).Select
    If Selection = "" Then 'je vérifie si la cellule est vide et si elle l'est
    If Cells(79, Col).Value = "" AND Cells(80, Col).Value = "" AND Cells(81, Col).Value = "" Then
'je vérifie si les cellules en lignes 79, 80 et 81 le sont aussi et si c'est le cas
    ShDEST.Activate
'on active la feuille ShDEST
    Range("B2").Value = "Choix non fait"
'et on inscrit cette mention dans la cellule B2
    Else
    ShDEST.Activate
    Range("B2").Value = "Choix fait"
' sinon on écrit cette mention dans la cellule B2
    End If
    End If
 
'même principe avec ce qui suit pour la
    Cells(82, Col).Select
    If Selection = "" Then
    If Cells(84, Col).Value = "" AND Cells(85, Col).Value = "" AND Cells(86, Col).Value = "" Then
    ShDEST.Activate
    Range("D2").Value = "Choix non fait"
    Else
    ShDEST.Activate
    Range("D2").Value = "Choix fait"
    End If
    End If
Dans tous les cas, c'est la mention "Choix non fait" qui apparaît alors que ça ne devrait pas être le cas.

Une idée pour m'aider à corriger ?