VBA

Résolu
miz92 -  
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
    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

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

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

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

    2 réponses
    VBA excel : résoudre problème de capacité.
    Juan Pedro

    9 réponses
    [Excel] Méthode Autofill dans une macro
    Arn's

    2 réponses