mettre caracteres dans case vide

[pas fortiche]

je souhaiterai connaitre le moyen de mettre '..' das les cases vides de mon classeur excel

merci tout le monde

 

[Gérard DEZAMIS]

Bonjour Pas Fortiche

D'habitude ici on dit bonjour :whistle:

essayer :

Private Sub Worksheet_Activate()
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
If Cells(i, j).Value = '' Then
Cells(i, j).Value = '.....'
End If
Next j
Next i
End Sub
J'ai mis 10 mais tu peux changer selon le nombre de lignes et de colonnes
Cette procedure s'effectuera à chaque fois que la feuille sera activée

@+GD

 

[Ricquet]

Bonjour,

Essaie avec le menu Format / Mise en Forme Conditionnelle.

A+, Eric

 

[pas fortiche]

merci pour tout ca

c vraiment sympa

 

[edelweisseric]

Bonjour

Tu peux essayer celle ci aussi :

Sub remplirvides()
Selection.SpecialCells(xlCellTypeBlanks).Value = '..'
End Sub

Bon courage

 

[pas fortiche]

et si je veux que l'element remplacant de mes cases vides soit un nombre et +1 a chaque case vide de maniere a n'avoir jamais le meme nombre dans la case

merci de votre patience

 

[pas fortiche]

et si je veux que l'element remplacant de mes cases vides soit un nombre et +1 a chaque case vide de maniere a n'avoir jamais le meme nombre dans la case

merci de votre patience

 

[Ricquet]

Re,

Je me permets de reprendre ce qu'a fait Gérard :

Private Sub Worksheet_Activate()
Dim i As Integer, j As Integer, k As Integer
k = 1
For i = 1 To 10
For j = 1 To 10
If Cells(i, j).Value = '' Then
Cells(i, j).Value = k
k = k + 1
End If
Next j
Next i
End Sub

Voili, voilou ,
A+, Eric

 

[edelweisseric]

Bonjour

Je ne comprend pas exactement ce que tu cherches mais essaie cela :

Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = '=r[-1]+1'

C'est peut être une piste

Cordialement

 

[pas fortiche]

bonjour a tous

merci pour votre aide

mais en ce qui concerne le correctif de gerard que tu as fait la macro n'a aucune incidence

je suis peut etre pas doué je le reconnais en plus ta prog est simple et ne devrait pas causer de difficultes je ne comprends pas

merci

 

[edelweisseric]

Re

On ne va pas te laisser tomber comme cela. Dis nous exactement ce que tu veux obtenir dans les cellules vides

A+

(edelweiss) eric

 

[pas fortiche]

bonsoir

j'en peu plus a l'aide !!!!!!!!!!!!!

je cherche à remplacer mes cellules vides par un nombre allant de 1 en 1
ex : 1ere cellule vide trouvee => 10000000
2eme cellule vide trouvee => 10000001

etc

j'en ai besoin pour faire fonctionner correctement une macro un peu complexe

je sens que le pc va finir par la fenetre

merci dans tous les cas

 

[Ricquet]

Ne craque pas, on va bien réussir, à nous tous :whistle:

Regarde le fichier joint, le principe fonctionne ! A toi de l'étendre à la plage dont tu as besoin.

Bonne fin de journée,

Eric [file name=Casesvides.zip size=8739]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Casesvides.zip[/file]

 

[pas fortiche]

c exactement ce qu'il me faut

mais comment j'atteind la formule derriere ton bouton j'ai regarde les acro ya rien

je suis relument pas doue

merci de ton info

et merci qd meme riquet c cool

 

[Ricquet]

Pas de souci

Va dans le menu Outil / Macro / Visual basic editor.

Ne cherche pas un Module, c'est directement sur la Feuil1(Feuil1).

N'hésite pas, Bon courage,