Discussion :

[plasto590807]

Bonjour,

j'ai 8 cellules de A2 à A10 nommés :

Alice
Bouygues
Club-Internet
Free
Hotmail
LaPoste
Live
Orange
SFR

mais chaque cellule , donc chaque domaine (Alice,Bouygues,Club-Internet,Free,Hotmail,LaPoste,Live,Orange,SFR) devrai avoir a chaque extrémité de chaque domaine , ceci : (.fg , .ru , .bbox , .com , .aol , .net , .fr , .sn)


par exemple :

Alice.fg
Alice.ru
Alice.bbox
Alice.com
Alice.aol
Alice.net
Alice.fr
Alice.sn
....
....
....



Est-ce possible de le faire ?

Si ce n'est pas possible, ce n'est pas grave. Je le ferai à "main levé" pour chaque domaine......




Merci de votre aide (si vous y arrivez).

[ARTURO83]

Bonjour,

Essayez ceci, le résultat s'affiche dans la colonne B

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Extension()
    Dim i As Long, j As Long, Lig As Long, DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 2
    NbExt = 8
    For i = 2 To DerLig
        For j = 1 To 8
            Cells(Lig, "B") = Cells(i, "A").Value & Application.Choose(j, ".fg", ".ru", ".bbox", ".com", ".aol", ".net", ".fr", ".sn")
            Lig = Lig + 1
        Next j
    Next i
End Sub

Cdlt

[Pierre Dumas]

Bonjour

Voici une proposition, parmi d'autres qui arriveront certainement, pour le réaliser sans macro.

Gardez bien vos cellules de A2 à A10.
Mettez les finalités des domaines de B1 à I1.
Mettez cette formule en A2 : =$A2&B$1
Puis tirez vers le bas et la droite afin de recopier la formule.
Le & sert à concaténer (c'est à dire à coller, à accrocher, à mettre bout à bout). Les $ sont là pour que, lorsqu'on recopie vers le bas et la droite, ne soient pris que les noms et les domaines.

En espérant que cela aide.

Bonne journée

Pierre Dumas

[plasto590807]

@Pierre Dumas

J'ai un petit soucis.
j'ai bien fais ceci :

...
Puis tirez vers le bas et la droite afin de recopier la formule.
...

Pour creer un tableau , j'ai etiré et copié de M2 à U10 (en ligne et colonne) mais dans le combobox , il n'apparait que :

Alice.fr
Bouygues.fr
Club-Internet.fr
Free.fr
Hotmail.fr
LaPoste.fr
Live.fr
Orange.fr
SFR.fr

alors q'il devrait avoir aussi :


Alice.ru
Bouygues.ru
Club-Internet.ru
Free.ru
Hotmail.ru
LaPoste.ru
Live.ru
Orange.ru
SFR.ru


jusqu'à

Alice.sn
Bouygues.sn
Club-Internet.sn
Free.sn
Hotmail.sn
LaPoste.sn
Live.sn
Orange.sn
SFR.sn

Je ne comprends pas pourquoi que je n'ai que :

Alice.fr
Bouygues.fr
Club-Internet.fr
Free.fr
Hotmail.fr
LaPoste.fr
Live.fr
Orange.fr
SFR.fr


*** Je vous montre ce que j'ai enregistré (ecriture noir sur fond vert) qui se trouve dans le gestionaire de noms qui a pour noms (T_domainesETfinissionSeul):



merci de m'aider et de votre aide.

[ARTURO83]

Si vous aviez préciser avant que vous deviez remplir une combobox, et même quel type de combobox? sur la feuille ou dans un formulaire?
Réessayez ceci
Pièce jointe 573004

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
23
Sub Extension()
    Dim i As Long, j As Long, Lig As Long, DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 2
    NbExt = 8
    For i = 2 To DerLig
        For j = 1 To 8
            Cells(Lig, "B") = Cells(i, "A").Value & Application.Choose(j, ".fg", ".ru", ".bbox", ".com", ".aol", ".net", ".fr", ".sn")
            Lig = Lig + 1
        Next j
    Next i
 
    DerLig = Range("B" & Rows.Count).End(xlUp).Row
    ActiveSheet.Shapes("Drop Down 1").Select
    With Selection
        .ListFillRange = "B2:B" & DerLig
        .LinkedCell = ""
        .DropDownLines = 8
        .Display3DShading = False
    End With
    Range("A1").Select
End Sub

[Pierre Dumas]

Rebonjour

Je vous fais la même remarque qu'ARTURO83 (que je salue au passage ), je ne pouvais pas deviner qu'il fallait remplir un combobox

Je vous laisse donc consulter sa solution.

Bonne journée à vous

Pierre Dumas