Remplssage céllules

[Lucien]

Bonjour le forum

J' ai une remontée d' information sur une feuille de calcul à 7 colonnes, mais il arrive qu' une partie des céllues de la colonne A soient vides et je voudrais faire un remplissage automatique en ajoutant soit 1 ou Idem aux céllues vide en lui disant d' aller jusqu à la derniere céllule pleine de la colonne B

Merci d' avance pour toute aide sur ce sujet

Lucien

 

[Robert]

Bonjour Lucien, bonjour le forum,

Une petite macro ? Alors :

Sub Macro1()
Range('A' & Range('A65536').End(xlUp).Row + 1 & ':A' & Range('B65536').End(xlUp).Row).FormulaR1C1 = '1'
End Sub

 

[Lucien]

Bonjour Robert

Je te remercie pour ta macro elle fonctionne mais,
ne remplit pas toutes les cellules vide.
La colonne A a des donnees mais aussi beaucoup de celules vides qui ne se suivent pas. donc il faudra que la macro commence depuis A1 er recherche toutes les cellules vide sur cette colonne en se basant jusqu a la derniere cellule remplit de B. La colonne n' a pas de cellules vides

Lucien

 

[Robert]

Bonjour Lucien, bonjour le forum,

Oeuf Corse! J'avais mal compris... Désolé. Essaie comme ça :

Sub Macro1()
Dim cel As Range
For Each cel In Range('A1:A' & Range('B65536').End(xlUp).Row)
If cel.Value = '' Then cel.Value = 1
Next cel
End Sub

 

[myDearFriend!]

Bonsoir Lucien, Robert, le Forum,

On peut aussi se passer d'une boucle et faire :

      Range('A1:A' & Range('B65536').End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Value = 1

Et suivant la configuration de ton tableau, tu devrais certainement pouvoir faire simplement   :

      Columns(1).SpecialCells(xlCellTypeBlanks).Value = 1

Cordialement,

 

[Lucien]

Bonjour Robert et myDearFriend!

Merci a vous deux j' ai éssayé les deux solutions et ça marche.
Un grand merci

Lucien