Texte par défaut

[DST]

Bonjour, je souhaiterai avoir un texte par défaut (colonne C) quand dans la colonne B je sélectionne un texte précis.
Exemple: en B ( je sélectionne violon, je veux qu'en C j'ai câble XLR et en D micro).

Merci de votre aide

DST

 

[fanfan38]

Re : Texte par défaut

Bonjour
Fais un clic droit sur le nom de la feuille en bas à gauche et choisis "visualiser le code"
recopie les lignes ci dessous
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If UCase(Target.Value) = "VIOLON" Then
lig = Target.Row
Cells(lig, 3).Value = "câble XLR"
Cells(lig, 4).Value = "micro"
End If
End Sub

A+ François

 

[DST]

Re : Texte par défaut

Bonjour, j'ai bien fait ce que tu demandais mais cela ne fonctionne pas.
Je te joins une partie de mon fichier
Merci d'avance
DST

 

[fanfan38]

Re : Texte par défaut

Relie ta macro
Cells(lig, 4).Value = "micro" et non Cells'lig, 4).Value = "micro"

A+ François

 

[DST]

Re : Texte par défaut

Re,
Toujours pas et puis-je le faire dans le même principe pour les autres instruments ?

 

[skoobi]

Re : Texte par défaut

Bonjour le fil,

voici une autre proposition, inspiré de celle de fanfan38 avec un 2eme exemple: si en colonne B = "TOTO" alors colonne C = "fifi" et colonne D = "lolo".
Tu peux ajouter autant de cas que tu veux.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
lig = Target.Row
Select Case UCase(Target.Value)
Case "VIOLON"
  Cells(lig, 3).Value = "câble XLR"
  Cells(lig, 4).Value = "micro"
Case "TOTO"
  Cells(lig, 3).Value = "fifi"
  Cells(lig, 4).Value = "lolo"
End Select
End Sub

 

[DST]

Re : Texte par défaut

Bonjour,
J'écris bien les données mais toujours rien ! Es-ce qu'il faut faire quelque chose une fois les données écrites ? c'est la première fois que j'écris une macro.
DST

 

[fanfan38]

Re : Texte par défaut

Bonjour
N'écris pas les données: fait un copier coller (ça évite les erreurs)
Quand tu as fini tu peux faire un choix dans la colonne B et le reste ce rempli tout seul...

A+ François

 

[DST]

Re : Texte par défaut

Bonsoir,
je ne dois pas être doué !!!,car je n'y arrive toujours pas
Peux tu voir avec le fichier
DST

 

[fanfan38]

Re : Texte par défaut

Ci joint la réponse à ta question...

A+ François

 

[DST]

Re : Texte par défaut

Je saissie bien un élément mais rien ne passe

DST

 

[skoobi]

Re : Texte par défaut

Re bonjour,

ferme excel et ouvre à nouveau le fichier de fanfan38, ça devrait marcher.

 

[fanfan38]

Re : Texte par défaut

Bonjour
Ou alors il faut voir au niveau sécurité...
Quand tu ouvres le fichier est ce qu'il pose la question "ouvrir les macros"
Sinon il faut regarder dans la config d'excel le réglage de la sécurité...

A+ François

 

[DST]

Re : Texte par défaut

Bonjour,
C'est bon, il sufisait d'activer la macro.
Encore merci pour votre aide
DST

 

[DST]

Re : Texte par défaut

Bonjour,
Je reviens vers vous car je n'arrive pas à faire une nouvelle macro dans la même feuille excel. je m'explique: au départ j'ai la saisie qui se fait en column2 avec des lig3,4 et 5; mais je souhaiterai avec aussi un columm en 4 avec des lig en 6,7.
Autre question, est-il possible d'effacer toutes les cellules sur une même ligne lorsque l'on efface le columm en 2.
j'espère avoir bien exprimé ma demande, les termes utilisés sont ceux de la macro.
Merci d'avance
DST