Renvoyer un signe "." dans une cellule vide

degap05

XLDnaute Impliqué
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

degap05

XLDnaute Impliqué
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

XLDnaute Barbatruc
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:

degap05

XLDnaute Impliqué
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

Discussions similaires

Réponses
10
Affichages
568
Réponses
3
Affichages
347
Réponses
6
Affichages
571

Statistiques des forums

Discussions
314 095
Messages
2 105 818
Membres
109 436
dernier inscrit
alex.972