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

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 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

Discussions similaires

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

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

2 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

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

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

9 réponses