Discussion :

[Sophie85]

Bonjour,

Très grande débutante dans la programme VBA, j'ai passé les deux derniers jours à lire tous les forums possible pour répondre à une question très simple...

Je possède un très long fichier de données contact dans les colonnes A à H.
Je souhaite créer une macro qui permet la concatenation de ces données jusqu'à la première ligne vide rencontrée.

Pas de problème sur la formule mais je n'arrive pas à lui dire de s'arrêter à la première ligne vide.
Comme je souhaite utiliser cette macro pour des fichiers de longueurs différentes je ne peux pas simplement lui dire de s'arrêter à une ligne précise.

Merci pour votre aide

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
 
Sub concatenation()
'
' concatenation Macro
' Permet de concatener l'ensemble des données de A à H jusqu'à une ligne vide
'
 
   Do
   ActiveCell.FormulaR1C1 = _
        "=RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"
        ActiveCell.Offset(1, 0).Select
 
Loop Until Row.Value = ""
 
 
End Sub

[Soraphiroth]

essaye :

Code :

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

loop until isempty(activecell)

[gFZT82]

Bonjour,

Une solution parmi d'autres

Code :

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

Loop Until Application.CountA(Selection.EntireRow) = 0

Cordialement.

[Sophie85]

essaye :
Code :Sélectionner tout - Visualiser dans une fenêtre à part
loop until isempty(activecell)

Non ça ne marche pas parce que ma cellule active se trouve dans la colonne I et elle est donc toujours vide vu que je saute une ligne après ma concatenation.

Hello,
Est ce que les données sont continues sur une colonne et que la première Ligne vide est la fin de ton tableau ou il se peut que tu ai des lignes vides dans le tableau lui même?

Les données de la colonne A sont bien continues et ne s'arrête qu'à la dernière ligne de mon tableau par contre dans mes autres colonnes (tel, mobile, mail) il y a des cases vides.

Bonjour,

Une solution parmi d'autres
Code :Sélectionner tout - Visualiser dans une fenêtre à part
Loop Until Application.CountA(Selection.EntireRow) = 0
Cordialement.

Non ma concatenation ne s'arrête pas et je dois appuyer deux fois sur Echap pour y mettre un terme.

Merci pour vos réponses, je continue de chercher.
En pièce jointe un exemple de mon fichier.
Ma cellule active se trouve dans la colonne I.

[Soraphiroth]

Dans ce cas :

Code :

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

loop until isempty(sheets("ongletsurlequelletutravailles").cells(activecell.row, 1))

[Sophie85]

Merci Soraphiroth, ça marche très bien même si je ne sais pas pourquoi

[gFZT82]

Non ma concatenation ne s'arrête pas et je dois appuyer deux fois sur Echap pour y mettre un terme.

Dans ton fichier, je sélectionne la cellule I2 puis je lance la procédure. Les cellules I2 à I13 se remplissent normalement avec la concaténation des 6 autres cellules puis le programme s'arrête normalement à la 14eme ligne.
Si le programme ne s'arrête pas, c'est qu'il trouve des cellules non vides dans les lignes suivantes (et que ton fichier n'est pas identique à celui que tu as transmis).

Cordialement.

[keygen08]

Bonjour
Avec ceci, la boucle s'arrete lorsque la valeur de la cellule situé au dessus de la cellule active est vide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub concatenation()
Dim a As String
' concatenation Macro
' Permet de concatener l'ensemble des données de A à H jusqu'à une ligne vide
'
   Do
   ActiveCell.FormulaR1C1 = _
        "=RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"
        ActiveCell.Offset(1, 0).Select
a = ActiveCell.Offset(-1, 0)
Loop Until a = ""
 
End Sub

Bonne journée

[Ashireon]

Hello,
Est ce que les données sont continues sur une colonne et que la première Ligne vide est la fin de ton tableau ou il se peut que tu ai des lignes vides dans le tableau lui même?