Modification feuille

[carloutch]

Bonjour,

Voici mon petit problème.

j'ai un classeur avec plusieurs colonnes dont une appelée "Remarques" qui me permet de gérer une liste de clients.

Si cela est possible j'ai besoin via une autre feuille d'introduire des données qui iront directement se placer dans la colonne "Remarque"en regard du client sélectionné.

Mon fichier actuel comporte +- 550 lignes. et je n'aime pas utiliser access.
Merci

Ci joint un exemple

 

[Dull]

Re : Modification feuille

Salut carlouch, le Forum

Pas sur d'avoir tout compris mais teste ce code à placer dans le module de ta feuille "infos"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B3]) Is Nothing Then
Set C = Sheets("liste clients").Columns("A").Find(What:=Target.Offset(-2, 0))
If Not C Is Nothing Then C.Offset(, 6) = Range("B3")
End If
End Sub

Bonne Journée

 

[carloutch]

Re : Modification feuille

Bonjour,
Merci c'est cela que j'ai besoin, mais est il possible de ne pas effacer les données déjà encodées quand je ré sélectionne le même client .
En fait j'ai besoin d'une feuille qui me permet d'introduire des remarques a la suite l'une de l'autre pour créer un dossier perso. par client.
Ceci est peut être un peu plus clair?

Merci pour vos efforts.
Bien à vous .
Carloutch

 

[Dull]

Re : Modification feuille

Salut carloutch, le Forum

Faut 'il ajouter les remarques à la suite les unes des autres selon les Clients

essaye cela: les remarques seront ajoutés séparés d'une virgule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [B3]) Is Nothing Then
Set C = Sheets("liste clients").Columns("A").Find(What:=Target.Offset(-2, 0))
If Not C Is Nothing Then C.Offset(, 6) = C.Offset(, 6) & ", " & Range("B3")
End If
End Sub

Bonne Journée

 

[carloutch]

Re : Modification feuille

Bonjour et merci
effectivement cela fonctionne .
pour compliquer un peu les choses !!!
pourriez vous m'expliquer avec des mots en français le cheminement du code.
par exemple : "dim c as range" veut dire : copier tous ce qui se trouve en C ????
afin que je puisse comprendre ce qui se passe quand je fais une telle action et éventuellement les réutiliser dans d'autre code que je pourrais créer.
si je met une liste déroulante dans la cellule b1 feuille infos est ce que cela fonctionnera aussi ?

merci
Carloutch

 

[Dull]

Re : Modification feuille

Salut carloutch, le Forum

...
par exemple : "dim c as range" veut dire : copier tous ce qui se trouve en C ????

Non pas du tout Dim C as Range c'est la déclaration de la Variable C
CAD que la Variable C est reconnue comme un Range (Valeur dans une Cellule)
Fait une recherche sur les déclarations de variables

si dessous le code commenté

Option Explicit 'Oblige la Déclaration des Variables

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range 'Déclare la variable C
If Target.Count > 1 Then Exit Sub 'Si plus d'1 cellule séléctionnée on sort de la Sub
If Not Intersect(Target, [B3]) Is Nothing Then 'Si la Modif ne se fait pas en B3 rien ne se passe
Set C = Sheets("liste clients").Columns("A").Find(What:=Target.Offset(-2, 0)) 'Recherche en ColonneA de la Feuille Liste Client _
la valeur de la cellule 2 lignes plus haut de la cellule active Soit B1
If Not C Is Nothing Then C.Offset(, 6) = IIf(C.Offset(, 6) = "", Range("B3"), C.Offset(, 6) & ", " & Range("B3")) 'Si il y a une valeur en B3 alors on _
ajoute la valeur au résultat de la recherche la cellule B3
End If 'Fin de Condition
End Sub

...si je met une liste déroulante dans la cellule b1 feuille infos est ce que cela fonctionnera aussi ?

Aucun problème🙂

Bonne Journée