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

alliba -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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 ?
A voir également:

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0

Discussions similaires

Arrêt d'exécution d'un code vba
amiro2017 -
amiro2017 -

6 réponses