Parcourircolonne avec vba et changement de theme

[kd13]

Bonjour ,


j'aimerais bien Transformer cet algorithme en vba excel

Pour i de "a2" à "dernière ligne non vide de la colonne A" Faire
si "a&i" = "op" et "b&i" <>"" et "b&i+1"="" alors
changer l couleur du fond de "b&i"
fin si
fin pour


Merci

 

[JBARBE]

Re : Parcourircolonne avec vba et changement de theme

Bonjour à tous,

A essayer coloration rouge de la cellule :

Option Explicit

Sub essai()
Dim i As Long
 'For i = 2 To 65536
for i = 2 to range("a1").end(xldown).row ' Plus logique que précédemment et fait par titi
 ' If Cells(i, 1) <> "" Then
   If Cells(i, 1) = "op" And Cells(i, 2) <> "" And Cells(i + 1, 2) = "" Then
    Cells(i, 2).Interior.ColorIndex = 3
  End If
  'End If
Next i
End Sub

bonne journée

 

[titiborregan5]

Re : Parcourircolonne avec vba et changement de theme

Bonjour Kd, le forum,

essaie ceci (pour mettre en rouge):

for i = 2 to range("a1").end(xldown).row
if cells(i,1)="op" and cells(i,2)<>"" and cells(i+1,2)="" then
cells(i,2).interior.color=vbred
end if
next

Edit: hello Jbarbe

 

[kd13]

Re : Parcourircolonne avec vba et changement de theme

Merci bien JBARBE et titiborregan5
Les deux codes marchent parfaitement