verification cellule adjacente

[titom59280]

Bonjour à tous,

j'ai ce code qui affiche l'heure dans la cellule g9 si elle est vide sinon il l'affiche dans la 1er cellule vide en dessous.

ce que j'aimerais c'est ajouté un morceau de code pour qu'il verifie la cellule de gauche adjacente :
si elle est vide elle arréte le processus si elle n'est pas vide est affiche l'heure.


Dim ColAlpha As String

ColAlpha = "g"
If Range(ColAlpha & 9) = "" Then
Range(ColAlpha & 9) = Now
Else
Range(ColAlpha & Range(ColAlpha & Rows.Count).End(xlUp).Row + 1) = Now
End If

Merci a tous pour votre aide

 

[James007]

Re : verification cellule adjacente

Bonjour,

Est-ce-que j'ai compris ta demande ... ?

Sub Test()

Dim ColAlpha As String

ColAlpha = "g"
If Range(ColAlpha & 9) = "" Then
    Range(ColAlpha & 9) = Now
Else
    Range(ColAlpha & Range(ColAlpha & Rows.Count).End(xlUp).Row + 1) = Now
End If

If Range(ColAlpha & 9).Offset(0, -1) = "" Then
    '
Else
    Range(ColAlpha & 9).Offset(0, -1) = Now
End If

End Sub

A +

 

[titom59280]

Re : verification cellule adjacente

le code fonctionne exactement comme le précédent donc il ne vérifie pas la cellule toute suite a gauche de la cellule "cible"

 

[James007]

Re : verification cellule adjacente

Re,

C'est bien ce qui me semblait ... je ne comprends pas ta requête sur la cellule "cible" ...

Peux-tu poster un bout de fichier ...?

A +

 

[titom59280]

voila le fichier avec un commentaire pour mieux comprendre enfin j'espére

 

[laetitia90]

Re : verification cellule adjacente

bonjour titom59280,James007
comme je comprends !!!!

Sub es()
Dim i As Long
For i = 9 To 2000
If Cells(i, 7) = "" And Cells(i, 6) = "" Then MsgBox "cellule vide": Exit For
If Cells(i, 7) = "" And Cells(i, 6) <> "" Then Cells(i, 7) = Now
Next i
End Sub

 

[James007]

Re : verification cellule adjacente

Bonjour titom, et laetitia 🙂

Avec ton code initial comme base ... cela répond-t-il à ta demande ... ???

A +