Discussion :

[Ptitbubu75]

Bonjour,

Dans une macro (je ne suis pas trés doué et utilise l'enregistrement de macro) je souhaite qu'une formule soit étendu jusqu'à la dernière ligne de mon tableau.
Dans ma feuille de calcul ce cas ce présente pour plusieurs colonne pas obligatoirement à coté les unes des autres.
J'ai essayé pour chacune de mes colonnes mais sans succés.

Code :

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

1
2
3
4
5
6
7
    Dim DernLigne As Long
    DernLigne = Range("D" & Rows.Count).End(xlUp).Row
 
    With Sheets("Données triées")
        .Range("D2").FormulaR1C1 = "=RC[-1] & "" "" & RC[-2]"
        .Range("D2").AutoFill .Range("D2:D" & DernLigne)
    End With

Merci pour vos conseils.

[a_diard]

pour moi (microsoft office2007)si tu crée un tableau

insertion Tableau

la formule en D2 est dupliquée sur toute la colonne



également si tu ajoute une ligne.

[BENNASR]

et si pour raison d'apprentissage essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test()
Dim DernLigne As Long
DernLigne = Range("B" & Rows.Count).End(xlUp).Row
With Sheets("Données triées")
.Range("D2").FormulaR1C1 = "=RC[-1] & "" "" & RC[-2]"
.Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D" & DernLigne), Type:=xlFillDefault
End With
End Sub

[BENNASR]

attention
tu cherches la dernière ligne non vide à partir de la colonne D alors que normalement cette colonne va recevoir la concaténation de B et C donc est vide non ??
c'est pourquoi j'ai cherché la dernière ligne non vide à partir de la colonne B

[Ptitbubu75]

Merci pour ces réponses.
J'ai bien essayé mais les formules et autres ne sont copiés que jusqu'à la ligne 23, alors que j'en ai presque 1000.
Je peux vous faire suivre le code.

[Patrice740]

Bonjour,

Pour préciser la réponse de a_diard : pas besoin de VBA, Excel fait ça tout seul comme un grand (de 36 ans) !

A lire : Tableaux structurés Excel

[BENNASR]

bonjour

J'ai bien essayé mais les formules et autres ne sont copiés que jusqu'à la ligne 23, alors que j'en ai presque 1000.

Code :

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

DernLigne = Range("B" & Rows.Count).End(xlUp).Row

Pour déterminer la dernière cellule non vide , dans ma proposition je suppose que la colonne B est remplie jusqu'au 1000 non ??
si non à remplacer pas A si c'est la colonne remplie jusqu'à la fin

[Ptitbubu75]

Merci pour vos retours.

@BENNASR : oui j'avais bien modifié le colonne

@Patrice740 : cette solution me plait bien, je fais une macro pour automatiser le traitement des mes données. J'aurais une question au sujet des tableaux structurés.
Si pour le traitement de mes données le nombre de lignes varient est-ce que mes tableaux structurés via ma macro vont s'adpater ?

[Philippe Tulliez]

Bonjour,

Si pour le traitement de mes données le nombre de lignes varient est-ce que mes tableaux structurés via ma macro vont s'adpater ?

Bien entendu, c'est l'un des énormes avantages des tableaux structurés. L'objet ListObject a ses propres propriétés et méthodes qui nous permettent par exemple de connaître le nombre de lignes, colonnes, l'adresse de la zone des données, des totaux, des titres, etc.

Après avoir lu le tutoriel proposé par Patrice, que je salue au passage, je vous conseille la lecture de celui-ci Excel: Les tables de données en VBA

[Ptitbubu75]

Dans mon modèle de travail, j'importe dans mon fichier Excel 1 feuille de calcul ("Produits") avec un nombre variable de lignes, le nombre de colonnes est identique.
Dans ma macro actuelle : mon tableau structure fait 967 lignes, mais je voudrais que ce nombre dépendent du nombre réel de lignes dans mon classeur. En effet , ensuite les données sont classées

Code :

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

1
2
3
4
5
6
7
Sheets("Produits").Select
    Rows("1:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AH$967"), , xlYes).Name = _
        "Tableau1"

Bruno

[Patrice740]

Bonjour,

Avec quelques bribes de code, il n'est pas facile de comprendre et donc de t'aider.

Mais je ne comprends pas pourquoi chercher compliqué où c'est simple :
- AutoFill est inutile, il suffit d'appliquer la formule R1C1 à la plage concernée.
- Pourquoi copier des lignes pour les supprimer ensuite ? il suffit de copier uniquement ce qui est utile.
- Au début tu utilises With, c'est bien, mais ensuite pourquoi tous ces horribles Select ????
Regardes l'aide de CurrentRegion.

[Ptitbubu75]

Je ne maîtrise pas vraiment les macro, et j'utilise donc l'enregistrement de macro.
Ensuite je ne touche à rien..

Je peux te faire suivre mon code complet si tu veux.

Bruno

[BENNASR]

bonjour
à mon modeste avis, et pour arriver au but, il est utile de joindre un capture écran des données de départ et une simulation du résultat attendu ou bien joindre un fichier test avec des données non confidentielle
Bonne Continuation

[Ptitbubu75]

Je vus fais suivre une extraction de mes données.
Le nombre de ligne est variable de 100 à plus de 1000.Trame.xlsm

[BENNASR]

Qu'est ce que tu veux faire
donnez un exemple
je vois aucune relation entre la première intervention et l'intervention 5 ou 6

Code :

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

1
2
3
4
5
6
7
    Dim DernLigne As Long
    DernLigne = Range("D" & Rows.Count).End(xlUp).Row
 
    With Sheets("Données triées")
        .Range("D2").FormulaR1C1 = "=RC[-1] & "" "" & RC[-2]"
        .Range("D2").AutoFill .Range("D2:D" & DernLigne)
    End With

comparer avec

Code :

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

1
2
3
4
5
6
7
Sheets("Produits").Select
    Rows("1:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AH$967"), , xlYes).Name = _
        "Tableau1"