VBA - Exécution d'une macro sur une colonne

Question

Bonjour,     
J'ai réalisé une macro qui me permet de remplir la colonne 3, avec une valeur en H3, si la cellule de la colonne 1 ,est remplie. Voici le code :    

Sub Ecrire()    
    Dim cellule As Range    
        Set cellule = ActiveCell    
    If ActiveCell <> Empty Then    
        Cells(cellule.Row, cellule.Column + 2) = Range("H3")    
    End If    
End Sub    


Celui-ci marche mais je ne sais pas comment il est possible de le lancer automatiquement sur toute la colonne 3 sans avoir à lancer la macro manuellement.     
Savez vous comment faire ?

ccm81 · Answer

bonjour,

essayer la modif suivante

Sub Ecrire()
Const Derligne = 10
Dim cellule As Range, nuco As Long
Set cellule = ActiveCell
If ActiveCell <> Empty Then
  nuco = cellule.Column
  For nuli = 1 To Derligne
    Cells(nuli, nuco + 2) = Range("H3")
   Next nuli
End If
End Sub

RQ1. Modifier la valeur de DerLigne
RQ2. Ta macro ne remplit pas la colonne 3 mais la (colonne selectionnée +2)

bonne suite

michel_m · Answer

bonjour

nbre = Application.CountA(Columns(1))
valeur = Range("H3")
Application.ScreenUpdating = False
lig = 65536

For cptr = 1 To nbre
lig = Columns(1).Find("*", Cells(lig, 1), xlValues).Row
Cells(lig, 3) = valeur
Next

VBA - Exécution d'une macro sur une colonne

2 réponses

Discussions similaires

Newsletters