VBA

Résolu/Fermé

miz92 Messages postés 3 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 5 avril 2016 à 17:17
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 - 5 avril 2016 à 18:54

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.

A voir également:

VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
Autofill vba ✓ - Forum Excel
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 2 429
Modifié par ccm81 le 5/04/2016 à 18:54

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

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

appliquer une pause dans une macro vba excel