VBA Remplir cellules vides Résolu/Fermé

Question

Bonjour,
J'ai un tout petit problème :
J'ai ce bout de code :

Sub celvides()
ActiveSheet.Range("N1:N4000").SpecialCells(xlCellTypeBlanks) = "01/01/2012"
ActiveSheet.Range("O1:O4000").SpecialCells(xlCellTypeBlanks) = 'la celulle d'a coté
End Sub

Le but est que pour mes cellules vides de la colonne N, la date du 01/01/20012 soit mise automatiquement, ce qui marche à condition qu'il y ait effectivement des cellules vides (si je le lance deux fois d'affilée, ca plante).
Et la deuxième ligne de code; je souhaite que pour les cellules vides de la colonne O, soit recopiée la valeur correspondante de la colonne N. Je pensais utiliser la fonction Cellule.Offset(0, -1) mais je n'y arrive pas.
Pouvez vous m'aider ?
Merci

melanie1324 · Answer

bonjour,

voici ce que tu demandes

Sub celvides() 

j=4  'met un numéro de colonne pour lequel tu as toujours une valeur dans ton tableau
i=1

cells(i,j).select
do while selection <> ""
cells(i,14).select 'sélection de la colonne n
if selection = "" then
selection ="01/01/2012" 
end if
cells(i,15).select
if selection ="" then
selection = cells(i,14)
end if
i=i+1
cells(i,j).select
loop
End Sub 

Un conseil : fais le tourner pavec F8 (pas à pas) pour etre sur que c'est ce que tu veux

actaris51 · Answer

c'est nikel, merci

VBA Remplir cellules vides

2 réponses

Discussions similaires