Insertion de texte par macro

[quezaco]

Bonjour le forum,
Je me retrouve une fois de plus coincé, alors je vous demande de l'aide.
J'ai des bases de donnees dans lesquelles je souhaite inserer du texte à chaque ligne. Ces bases n'ont pas le même nombre de lignes. Une macro pourrait-elle faire l'affaire 😕 ?
J'avoue que si quelqu'un pouvait me trouver une solution, ça me ferait gagner beaucoup de temps.
Ci-joint un morceau de fichier, merci pour l'intêret que vous pourrez porter à mon petit probleme.

 

[Pierrot93]

Re : Insertion de texte par macro

Bonjour Quezaco,

perso vois pas de bases de données... simplement 2 tableaux qui me semblent identiques, posés sur une même feuille.... Un peu plus d'explication sur le résultat à obtenir permettrait peut être de t'apporter une aide...

bon après midi
@+

 

[Pierrot93]

Re : Insertion de texte par macro

Re,

à la re-lecture cela pourrait donner ceci, pour une copie à partir de la 11ème lignes en dessous, à voir si j'ai bien compris :

Sub test()
Range("A1").CurrentRegion.Copy Range("A65536").End(xlUp)(12)
End Sub

 

[quezaco]

Re : Insertion de texte par macro

Bonjour Pierrot93,
Le classeur comprend seulement un petit extrait d'une de mes bases. Le resultat à obtenir se trouve dans l'extrait du tableau du desous colonnes C et H.
Desole si ma demande n'est pas tres claire, j'essaye de m'ameliorer.
Merci de votre reponse rapide.

 

[Pierrot93]

Re : Insertion de texte par macro

Re,

regarde mon post de 13h17.... peut être est ce une piste....

 

[Pierrot93]

Re : Insertion de texte par macro

Re,

euh... je dois être mal voyant, mais je ne vois pas de différence sur les colonnes C et H dans les 2 tableaux....

 

[quezaco]

Re : Insertion de texte par macro

Re Pierrot93,
Nos messages ont du se croiser. Le resultat à obtenir est que le pays, en l'occurence le mot France, soit rajoute à la suite de chaque ville de chaque participants (Col C et H).
Merci

 

[tototiti2008]

Re : Insertion de texte par macro

Bonjour quezaco, Bonjour Pierrot,

Peut être un truc comme ça (après avoir supprimé le 2ème tableau) :

Sub test()
Dim Cellule As Range, Derligne As Long
    Derligne = ActiveSheet.Range("A65536").End(xlUp).Row
    For Each Cellule In Range("C2:C" & Derligne & ",H2:H" & Derligne)
        Cellule.Value = Cellule.Value & ", France"
    Next
End Sub

 

[Pierrot93]

Re : Insertion de texte par macro

Re,

Aarf, je suis vraiment mal voyant... Et c'est toujours "france", en aucun cas tu as un autre pays...

Edition : bonjour Toto

 

[quezaco]

Re : Insertion de texte par macro

Bonjour tototiti 2008, re bonjour Pierrot93,
La solution proposee par tototiti 2008 apres l'avoir testee, me satisfait amplement et je l'en remercie beaucoup.
Pour Pierrot93, il n'y a effectivement pas que la France comme pays mais je pense pouvoir arriver à me debrouiller.
Merci à vous deux et au forum pour vos reponses, passez une tres bonne journee, à bientôt.