Renvoyer un signe "." dans une cellule vide

[degap05]

Bonjour,

Je souhaiterais renvoyer un signe "." (un point par exemple) dans une cellule lorsque j'en rempli une autre:

-cellules cibles en colonne F (à renseigner), cellules destination (".") en colonne I.

Auriez-vous une proposition ?

Merci.

 

[Tibo]

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.

@+

 

[Staple1600]

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

Bonjour


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

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

 

[jeanpierre]

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

 

[Feutrine]

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

Bonjour,

Formule en I

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

Amicalement
Feutrine

 

[degap05]

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.

 

[Staple1600]

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

Re

Testé sous XL2000 sans succès

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

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) = "."

 

[degap05]

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.

 

[degap05]

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.

 

[Excel_lent]

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

autocensure

 

[degap05]

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

Bonjour, Excel_lent,

Votre macro fonctionne parfaitement dans mon fichier de travail.

Merci encore