Renvoyer un signe "." dans une cellule vide

Tibo

XLDnaute Barbatruc

• 21 Avril 2008

• #2

Re : Renvoyer un signe "." dans une cellule vide

Bonjour,

Pas sûr du tout d'avoir compris, peut-être avec ceci :

en I1 :

=SI(F1<>"";".";"")

à recopier vers le bas.

Si pas ça, reviens avec plus de détails.

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2008

• #3

Re : Renvoyer un signe "." dans une cellule vide

Bonjour


Une autre proposition en VBA
A mettre dans le code de la feuille concernée

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Not IsEmpty(Target) Then
Target.Offset(0, 3).Value = "'."
End If
End Sub

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 21 Avril 2008

• #4

Re : Renvoyer un signe "." dans une cellule vide

Bonjour degap05,

Avec une condition, mais cela me paraît trop simple...

en I1 : =SI(F1<>"";".";"")

Tu nous dis, ou tu précises au besoin.

Jean-Pierre

 

Vote positif 0 Vote négatif

Feutrine

XLDnaute Occasionnel

• 21 Avril 2008

• #5

Re : Renvoyer un signe "." dans une cellule vide

Bonjour,

Formule en I

=SI(F1<>"";".";"")

Amicalement
Feutrine

 

Dernière édition: 21 Avril 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 21 Avril 2008

• #6

Re : Renvoyer un signe "." dans une cellule vide

Bonjour, merci à tous et Staple 1600, dont j'ai adapté la solution dans ma macro:

If c.Column = 6 And Not IsEmpty(Target) Then
Target.Offset(0, 3).Value = "'."
End If
If c.Column = 7 And Not IsEmpty(Target) Then
Target.Offset(0, 3).Value = "'."
End If
If c.Column = 9 And Not IsEmpty(Target) Then
Target.Offset(0, -3).Value = "'."
End If

Cela fonctionne trés bien en colonne F et G pour renvoyer en colonne I et J.
Par contre si j'essaie de I ver F (9 vers -3)là Excel se met à mouliner

Quelle est l'erreur?

Merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Avril 2008

• #7

Re : Renvoyer un signe "." dans une cellule vide

Re

Testé sous XL2000 sans succès

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count > 1 And Target.Columns.Count > 1 Then Exit Sub
If Not IsEmpty(Target) Then
Select Case Target.Column
Case 6, 7
Target.Offset(0, 3) = "'."
''Case 9 ' problème
''Target.Offset(0, -3) = "'."
End Select
End If
End sub

EDITION:
même problème avec

Code:

If Target.Rows.Count > 1 And Target.Columns.Count > 1 Then Exit Sub
If Target.Column = 6 Then Cells(Target.Row, 9) = "."
If Target.Column = 7 Then Cells(Target.Row, 10) = "."
If Target.Column = 9 Then Cells(Target.Row, 6) = "."

 

Dernière édition: 21 Avril 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 21 Avril 2008

• #8

Re : Renvoyer un signe "." dans une cellule vide

Bonsoir,
Je vais utiliser les éléments que vous m'avez indiqués.

Merci pour votre aide.

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 21 Avril 2008

• #9

Re : Renvoyer un signe "." dans une cellule vide

Bonsoir à tous et à Staple 1600,

Je pensais me servir d'une macro de Staple 1600, mais il manque peu de chose pour que celle-ci soit vraiment opérationnelle.

Serait-il possible pour que celle-ci soit parfaite, de la scinder en deux étapes indépendantes l'une de l'autre ?

Je joins un fichier.

Merci beaucoup.

 

Pièces jointes

• Macro Staple 1600.zip

  9.1 KB · Affichages: 41

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 21 Avril 2008

• #10

Re : Renvoyer un signe "." dans une cellule vide

autocensure

 

Dernière édition: 11 Mai 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 21 Avril 2008

• #11

Re : Renvoyer un signe "." dans une cellule vide

Bonjour, Excel_lent,

Votre macro fonctionne parfaitement dans mon fichier de travail.

Merci encore

 

Dernière édition: 22 Avril 2008

Vote positif 0 Vote négatif