Tableau dynamique

**guillaume74960** · 01/04/2015, 13h24

Bonjour à tous, me revoilà avec un nouveau projet et donc de nouveaux problèmes (sinon c'est pas drôle

)

J'arrive par macro à créer un tableau dynamique en important un fichier text.

Le problème je voudrai en rafraîchir un autre (ça je pense savoir), pour cela je doit copier une sélection de cellules dans une autre feuille à la suite des autres. La déjà je coince et ensuite de cela, récupérer dans une variable le n° de la dernière ligne utilisée suite à ce "collage"

Voici mon code actuel pour la selection des cellules et le copiage qui bien sur ne marche pas

Code :

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

1
2
3
DerniereLigne = Sheets("Total Semaine").Range("A5").End(xlDown).Offset(1).Select
    Sheets(dat).Select
    Range(Cells(2, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 5)).Copy Sheets("Total Semaine").Range(DerniereLigne)

**Aposto** · 01/04/2015, 13h48

Bonjour,

Moi je ferais comme ça:

Code :

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

1
2
3
4
set DerniereLigne = Sheets("Total Semaine").Range("A5").End(xlDown).Offset(1)
    with Sheets("dat")
    .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row, 5)).Copy DerniereLigne
    end with

Tu ne peux pas faire un .select et ensuite le mettre dans une variable, ensuite la méthode offset renvoie un range qui est un objet, donc pour mettre en variable un objet il faut faire set avant le nom de la variable.

De cette manière tu pourras utiliser directement ta variable objet, qui par la même mémorise aussi la feuille "total semaine".

**guillaume74960** · 01/04/2015, 14h47

Ah oui merci !! J'ai du mal avec ces variables !!

Mais du coup j'ai mis une MsgBox qui ressort la valeur de DernièreLigne, comment je peux faire pour avoir non pas la valeur mais le numéro de la cellule correspondante ?

**Aposto** · 01/04/2015, 15h14

pour avoir l'adresse complète:

Code :

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

DerniereLigne.adress

le numéro de ligne:

Code :

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

DerniereLigne.row

le numéro de colonne:

Code :

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

DerniereLigne.column

**guillaume74960** · 01/04/2015, 15h17

Ah oui merci j'avais "contourné" le problème mais c'était moins propre !!

En fait maintenant dans mon onglet dans la colonne A j'ai des dates au format jour/mois/année, comment à la place je pourrai renommer ces cellules avec "Semaine *" où * est le numéro de la semaine ?

**Aposto** · 01/04/2015, 15h23

à l'aide de la fonction "format()"

Code :

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

sheets("feuilleAModifier").name= "semaine" & format(Date, "ww")

voir l'aide F1 sur format pour le fonctionnement complet de cette fonction bien utile.

**guillaume74960** · 01/04/2015, 15h27

Mais avec cette ligne ça va renommer ma feuille non ?

Car moi je chercher à remplacer le contenu de la colonne A

**Aposto** · 01/04/2015, 15h46

ha oui effectivement j'ai lu un peu vite

Code :

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

range("A1").value="semaine" & format(Date, "ww")

**guillaume74960** · 01/04/2015, 15h54

Alors oui mais non ^^

Je m'explique (merci déjà d'avoir répondu) dans ce que j'insert dans la colonne A j'ai des dates au format JJ/MM/AA, je voudrais en fait transformer la colonne A de ma sélection tout juste insérée par le numéro de la semaine correspondant à la date inscrite (rude je sais

)

**Aposto** · 01/04/2015, 16h01

Est-ce que je pourrai voir ton code entier, que je voie un peu le contexte...

**guillaume74960** · 01/04/2015, 16h35

En fait j'ai réussi à bidouiller un peu ça donne ça (en reprenant la copie dont on parlait plus haut)

Code :

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

1
2
3
4
5
6
7
8
    Set DerniereLigne = Sheets("Totale Semaine").Range("A5").End(xlDown).Offset(1)
    With Sheets(dat)
    .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row, 5)).Copy DerniereLigne
    End With
    Set FinLigne = Sheets("Totale Semaine").Range("A" & DerniereLigne.Row).End(xlDown).Offset(1)
    MsgBox FinLigne.Row
 
    Sheets("Totale Semaine").Range("A" & DerniereLigne.Row & ":A" & FinLigne.Row).Value = "sem " & Format(Date, "ww")

La MsgBox c'était pour voir si j'arrivais bien en bas ^^

J'ai peut être parlé trop vite en fait car il renomme une cellule vide aussi en bas

**Aposto** · 01/04/2015, 16h41

Je vais répondre basiquement, pour la ligne DerniereLigne

Code :

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

Sheets("Totale Semaine").Range("A" & DerniereLigne.Row).Value = "sem " & Format(Date, "ww")

sauf que ce code modifie qu'une seule ligne, est-ce bien ce que tu veux ?

quelle valeur différente de DernièreLigne avec finLigne a-tu voulu avoir ?

**guillaume74960** · 01/04/2015, 17h15

En fait ce que j'ai essayé c'est de modifier l'ensemble des données que je viens d’insérer.

Ma variable derniereligne c'est la dernière ligne avant que je colle mes données et la finLigne c'est après les avoirs collées (c'est ce bloc que je veux modifier ^^)

**Aposto** · 01/04/2015, 17h29

je crois enfin avoir compris

essaie ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Set derniereligne = Sheets("Totale Semaine").Range("A5").End(xlDown).Offset(1)
    With Sheets("dat")
    .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row, 5)).Copy derniereligne
    End With
    Set FinLigne = Sheets("Totale Semaine").Range("A" & derniereligne.Row).End(xlDown)
    MsgBox FinLigne.Row
 
    With Sheets("Totale Semaine")
        For i = derniereligne.Row To FinLigne.Row
            .Range("A" & i).Value = "sem " & Format(.Range("A" & i).Value, "ww")
        Next
    End With

**guillaume74960** · 02/04/2015, 10h23

Alors ça fonctionne niquel merci !!!!

Mais j'ai un autre problème ^^

Code :

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

1
2
3
4
   Sheets("Graph Totale").Select
   ActiveSheet.PivotTables("Tableau croisé dynamique1").ChangePivotCache _
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
   "P:\Desktop\BAOSTAT 2015\[BAOSTAT 2015.xlsm]Totale Semaine!R1C1:R" & FinLigne.Row & "C5", Version:=xlPivotTableVersion14)

Ce code devrais mettre à jour mon tableau dynamique, quand je lance la macro ça mouline un moment (genre excel ne répond pas) puis plus rien, quand je vais voir à la main en faisant option -> changer la source de donnée, j'ai bien la nouvelle valeur mise à jour mais le tableau reste tel quel.