VBA

Résolu
miz92 Messages postés 3 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
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

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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

Discussions similaires

erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses