Unir 2 cellules dans une seule
Résolu/Fermé
A voir également:
- Unir 2 cellules dans une seule
- Formule excel pour additionner plusieurs cellules - Guide
- Aller à la ligne dans une cellule excel - Guide
- Fusionner 2 cellules excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Verrouiller cellules excel - Guide
2 réponses
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
11 oct. 2013 à 08:31
11 oct. 2013 à 08:31
Bonjour,
oui c'est possible, mais pour l'intégrer dans ton code il faudrait le connaitre ou avoir ton fichier que tu peux joindre avec ce lien
https://www.cjoint.com/
oui c'est possible, mais pour l'intégrer dans ton code il faudrait le connaitre ou avoir ton fichier que tu peux joindre avec ce lien
https://www.cjoint.com/
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
Modifié par Mike-31 le 11/10/2013 à 22:03
Modifié par Mike-31 le 11/10/2013 à 22:03
Re,
remplace tout le code que tu as mis dans le post précédent par cette simple ligne
Sheets("InfoPt").[B9] = Sheets("Présentation Identitées").[F2] & " " & Sheets("Présentation Identitées").[G2]
s'il y a disfonctionnement joint ton fichier dans un prochain post
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
remplace tout le code que tu as mis dans le post précédent par cette simple ligne
Sheets("InfoPt").[B9] = Sheets("Présentation Identitées").[F2] & " " & Sheets("Présentation Identitées").[G2]
s'il y a disfonctionnement joint ton fichier dans un prochain post
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
11 oct. 2013 à 12:44
Oups, là, j'ai fauté, de ne pas mettre à disposition l'un ou l'autre.
Ferai cela ce soir dès mon retour au travail.
Merci à vous
11 oct. 2013 à 21:27
Sheets("Présentation Identitées").Select
Range("F2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("InfoPt").Select
Range("B9").Select
ActiveSheet.Paste
Je reste ouvert à vous pour plus d'info. Sachez que j'ai fait comme cela, car mon code initiale et long.
Mais merci à vous d'avance pour tout ce que vous faite pour les débutants.