VBA

Résolu
miz92 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je voudrais écrire un code VBA pour mettre une valeur dans une cellule si une autre n'est pas vide, et de même pour toutes les autres cellules des 2 colonnes.
Un equivalent de =SI(K14<>"";I14="x";"").

Merci d'avance pour vos réponses.

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Peut être quelque chose comme ça ?

Const lideb = 5
Const lifin = 10

Public Sub OK()
Dim li As Long
For li = lideb To lifin
If Range("K" & li).Vallue <> "" Then
Range("I" & li).Vallue = "x"
Else
Range("I" & li).Vallue = ""
End If
Next li
End Sub

Cdlmnt
0