mettre caracteres dans case vide

G

Gérard DEZAMIS

Guest

• 28 Février 2006

• #2

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

 

Vote positif 0 Vote négatif

R

Ricquet

Guest

• 28 Février 2006

• #3

Bonjour,

Essaie avec le menu Format / Mise en Forme Conditionnelle.

A+, Eric

 

Vote positif 0 Vote négatif

P

pas fortiche

Guest

• 28 Février 2006

• #4

merci pour tout ca

c vraiment sympa

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 28 Février 2006

• #5

Bonjour

Tu peux essayer celle ci aussi :

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

Bon courage

 

Vote positif 0 Vote négatif

P

pas fortiche

Guest

• 28 Février 2006

• #6

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

 

Vote positif 0 Vote négatif

P

pas fortiche

Guest

• 28 Février 2006

• #7

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

 

Vote positif 0 Vote négatif

R

Ricquet

Guest

• 28 Février 2006

• #8

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

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 28 Février 2006

• #9

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

 

Vote positif 0 Vote négatif

P

pas fortiche

Guest

• 28 Février 2006

• #10

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

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 28 Février 2006

• #11

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

 

Vote positif 0 Vote négatif

P

pas fortiche

Guest

• 28 Février 2006

• #12

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

 

Vote positif 0 Vote négatif

R

Ricquet

Guest

• 28 Février 2006

• #13

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]

 

Pièces jointes

• Casesvides.zip

  8.5 KB · Affichages: 22
• Casesvides.zip

  8.5 KB · Affichages: 30
• Casesvides.zip

  8.5 KB · Affichages: 31

Vote positif 0 Vote négatif

P

pas fortiche

Guest

• 28 Février 2006

• #14

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

 

Vote positif 0 Vote négatif

R

Ricquet

Guest

• 28 Février 2006

• #15

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,

 

Vote positif 0 Vote négatif