Discussion :

[magnian]

Bonjour,

Dans le fichier EXCEL en pièce jointe, j'ai deux feuilles dont une principale avec les données personnelles d'un client.
Ce client peut habiter dans plusieurs villes différentes. Ces villes sont séparées par des ";".
J'aimerais que les informations de cette feuille, lors de la saisie par le client se retrouve automatiquement dans la feuille "recapitulatif" disposé tel que dans le fichier joint si le client est dans plusieurs villes différentes.

Comment est ce possible avec des macros en VBA?

Merci d'avance pour votre aide

[Thautheme]

Bonjour Magnian, bonjour le forum,

Em pièce jointe ton fichier modifié avec le code ci-dessous appliqué au bouton Recap. Attention, ça ne fonctionne que si les villes sont séparées par un point-virgule (;) !
Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim I As Object 'déclare la variable I (onglet Information principale)
Dim R As Object 'déclare la variable R (onglet Recapitulatif)
Dim V() As String 'déclare le tableau de variables indexées V (Villes)
Dim NBV As Integer 'déclare la variable NBV (NomBre de Villes)
Dim J As Integer 'déclare la variable J (incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
 
ActiveCell.Select 'enlève le focus au bouton
Set I = Sheets("Information principale") 'définit l'onglet I
Set R = Sheets("Recapitulatif") 'définit l'onglet R
NBV = UBound(Split(I.Range("B5").Value, ";")) 'définit le nombre d'éléments séparés par un point-virgule (;)
ReDim V(0 To NBV) 'redimensionne le tableau de variables indexées V
For J = 0 To NBV 'boucle de 0 à NBV
    Set DEST = R.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
    DEST.Value = I.Range("B2") 'renvoie l'ID
    DEST.Offset(0, 1).Value = I.Range("B3") 'renvoie le Nom
    DEST.Offset(0, 2).Value = I.Range("B4") 'renvoie le Prénom
    V(J) = Split(I.Range("B5"), ";")(J) 'ajoute la Jième ville comme variable indéxée V(J) au tableau V
    DEST.Offset(0, 3).Value = V(J) 'renvoie la Jième ville
Next J 'prochaine ville de la boucle
End Sub

Le fichier :

[magnian]

Bonjour Thautheme,

Merci pour ta réponse. Mais peut-on le faire sans le bouton "Recap" via une formule dans le code?

Merci d'avance pour ta réponse.

[Thautheme]

Bonsoir Magnian, bonsoir le forum,

On pourrait le faire automatiquement après la saisie de la cellule B5 mais si il faudrait contrôler que toutes les données ont bien été éditées. Ou alors au double-clic dans une cellule/plage ou encore au clic du bouton droit dans une cellule/plage... Qu'est-ce qui te conviendrait le mieux ? Dans quelle cellule/plage ?

[magnian]

Bonjour Thautheme,

On pourrait le faire après la saisie de la cellule B5, ça me convient mieux. Est-on obligé de vérifier que les données soient bien éditées?

Cordialement,

[Thautheme]

Bonjour Magnian, bonjour le forum,

Est t'on obligé de vérifier que les données soient bien éditées?

Non, mais tu risques d'avoir des données manquantes... Je te modifie le code dès que j'ai un moment...

[magnian]

Bonjour Thautheme,

Au lieu de compter le nombre de ville avec la variable NBV, peut-on juste compter le nombre de ";" qui correspondra ainsi au nombre de ville?

c'est à dire pour 2 villes par exemple: ville1;ville2;
Le nombre de ";" correspondant ainsi au nombre de ville...

[Thautheme]

Bonjour Magnian, bonjour le forum,

Oui c'est une autre manière de faire. Mais c'est en gros ce que fait la fonction Split. On pourrait coder comme ça en bouclant sur tous les caractères de la cellule B5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim NBPV as Integer (NomBre des Points-Virgules)
Dim I as String
For I=1 to Len(Range("B5").Value)
     If Mid(Range("B5").Value,I,1) = ";" then NBPV = NBPV + 1
Next I

Mais je préfère la fonction Split. Les coups et les douleurs hein !...
Ton fichier modifié :