VBA Excel sélectionner la première colonne vide

y= Range("C1").End(xlToRight).Column 
Cells(1,y).Select

Re

Les références en RC se font par rapport à la cellule où est entrée la formule

Tu dois te situer à priori dans la colonne R donc N est la 4éme colonne avant (-4) , M est la 5ème avant (-5) et T est la 2ème après (2)

Mais tu peux utiliser les références habituelles aussi en VBA comme ceci

ActiveCell.Formula = _
        "=IFERROR(VLOOKUP(Range("N2"),SHEETS("IEP S-1").RANGE("M:T")],4,0),""Non"")"

Cdlmnt

Via

Le problème c'est que j'avais écrit n'importe quoi je me suis mélangé les pédales entre les instructions Sheets et Range à mettre dans une ligne de macro mais qui n’apparaissent pas dans la formule pour une cellule!!

La bonne écriture est :ActiveCell.Formula = "=IFERROR(VLOOKUP(N2,'IEP S-1'!M:T,4,0),""non"")"

Cdlmnt

Via

Bonsoir Jérôme

1) Écris ton code ainsi :

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "IEP!R1C2:R" & DLIEP  & "C" & CIEP, Version:=6).CreatePivotTable TableDestination:= _
        "TCD!R1C1", TableName:="Tableau croisé dynamique1", DefaultVersion:=6

2) Pour la dernière colonne le code est :

    CIEP = Sheets("IEP").Rows(2).Find("*", , , , xlByColumns, xlPrevious).Column

Cdmnt

Via

Comme je te disais je ne peux rien dire de plus sans avoir sous la main ton fichier

Poste ton fichier sur cjoint.com, fais créer un lien que tu copies et reviens coller ici

Bonjour Jérôme

HTCD4 = Cells(DLTCD3 + 5, 1).Select  Sélectionne la 1ere colonne donc erreur car coller sur tableau déjà existant

Ce serait plutôt HTCD4 = Cells(DLTCD3 + 5,5).Select

Ensuite les lignes

    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("E27").Select

je ne vois pas à quoi elles correspondent et doivent être supprimées je pense

D'autres erreurs surviennent après dans la macro qui je pense provient d'un enregistrement que tu as arrangé

A ta place je supprimerai toute la fin de la macro après ce dernier TCD et après s'être assuré que tout fonctionne jusque là, je reprendrai tranquillement à partir de là (en enregistrant les manips nécessaire s'il y a lieu) et pas à pas pour finaliser une macro qui fonctionnera

Bon courage

Cdlmnt

Via

Re

C'est bien la forme de la 1ere formule qui est la bonne mais c’est n'importe quoi car la variable ESG sert tantôt pour la ligne , tantôt pour la colonne

    Selection.AutoFill Destination:=Range(Cells(ESG, 5), Cells(derligneSuiviG, ESG))

Rectifie ta formul ainsi

    Selection.AutoFill Destination:=Range(Cells(ESG, 5), Cells(derligneSuiviG, 5))

Cdlmnt

Via

Bonjour

Apparemment R29C9 renvoie à la ligne 29 de la colonne 9, je ne sais pas à quoi cela correspond sur ton fichier mais tu peux modifier les références avec des variables à la place de la ligne et de la colonne

par ex avec  LTCD pour la 1ere ligne de ton TCD et CTCD pour sa colonne   :

ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""IEP - Venue/Passage""," & "TCD!R" & LTCD & "C" & CTCD & " )"

Cdlmnt

Via

CTCD5 = Sheets("TCD").Rows(1).Find("*", , , , xlByColumns, xlPrevious).Column te donne la dernière colonne, toi il te faut la 1ere du TCD5 mais cette colonne est sans doute toujours la même donc tu peux sans doute inscrire le nombre en dur dans la macro

par ex ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""IEP - Venue/Passage""," & "TCD!R" & HTCD5 & "C9" & " )" si c'est la colonne 9

pourquoi ne puis-je pas utiliser HTCD5 à la fois en colonne et en ligne

parce que la colonne n'est pas la même que la ligne !!  la variable HTCD5 doit donner 29 alors que la colonne c'est 9

Bonjour

Après l'instruction Cells(1, y + 2) = "texte à écrire 3" on est positionné en colonne y+2  donc   Selection.AutoFill Destination:=Range(Cells(1, y), Cells(derligne, y)) renvoie une erreur puisque tu indiques dans cette 2eme instruction y comme colonne de départ

Soit tu veux effectivement remplir la colonne y et il faut d'abord revenir sur cette colonne avec un Select.Cells(1,y) soit tu veux remplir la colonne y +2 et il faut coder l'AutoFill en conséquence Selection.AutoFill Destination:=Range(Cells(1, y)+2, Cells(derligne, y+2))

Cdlmnt

Via

Re,

1) Si tu utilises la même variable DLIEP pour le TCD, comme cette variable contient le n° de la dernière ligne avant suppression des doublons c'est normal que ça prenne toujours l'intégralité des lignes. Après la suppression des doublons et avant le TCD il faut recalculer la dernière ligne non vide avec

  DLIEP = Sheets("IEP").Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row

2) R1C2 = ROW1 COLUMN2   soit ligne 1 colonne 2 soit encore B1

3) Pour que ce qui est du placement de tes TCD tes instructions ont à priori l'air correcte, impossible de te dire ce qui ne va pas sans ton fichier complet avec sa macro

Qu'est ce qui ne fonctionne pas,  ? le placement n'est pas bon ? le calcul de la dernière line non vide ne se fait pas ? ..

Quelle valeur est indiquée pour DLTCD3 quand tu passes dessus avec la souris dans le code après arrêt ?

Cdlmnt

Via

Bonjour Via,

Trop fort et merci pour ton aide. En faite au départ et via l'enregistreur je créais le TCD1 ensuite je copiais/collais le TCD1 pour faire mon TCD2 et j'ajoutais ce que je voulais. Pour le TCD3, idem je copiais/collais le TCD1 et faisais mon TCD3.

Par contre pour le TCD4, je copiais le TCD3. Sauf que le TCD3 a deux filtres et du coup pour le sélectionner via l'enregistreur j'ai sélectionné la cellule E1 (Nom du filtre1) puis j'ai fait (Shit + ctrl + flèche du bas) une première fois et ça m'a sélectionné le deuxième filtre, j'ai refait (Shit + ctrl + flèche du bas) ce qui m'a emmené en haut de mon TCD3 et je l'ai fait une dernière fois ce qui m'a permis d'arriver en bas. Je l'ai ensuite fait sur la droite (Shit + ctrl + flèche droite) ce qui m'a permis de sélectionner tout le TCD3 et j'ai pu le copier.

Voici le code avec l'enregistreur

Range("E1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("E27").Select
    ActiveSheet.Paste

Le problème c'est qu'en VBA, je n'ai pas réussi à sélectionner le TCD3 pour le copier.

J'ai essayé les commandes suivantes, mais ça n'a pas fonctionné. Saurais tu comment je peux copier mon TCD3 qui a deux filtres ?

Range("HTCD3").currentregion.Select ==> qui me sélectionne que les deux filtres

et

HTCD3 = Cells(1, CTCD + 3).End(xlUp).End(xlToRight).Select qui est erroné

Encore merci pour ton aide,

Amicalement

Jérôme

Là je ne sais !!

Mais quand on peut pas prendre le droit on prend le gauche

A ta place je continuerais dans  ma macro à copier le TCD1 et je le collerais en bonne place avec l 'instruction maintenant rectifiée

Ensuite en revenant sur le tableau et en enregistrant je ferais toutes les manips nécessaires pour l'adapter selon ce que je veux comme filtre et autre et j'intégrerai ensuite l'enregistrement dans ma macro

Aucun souci et franchement un grand merci pour toute ton aide et la rapidité de tes réponses.

Je vais effectivement toujours repartir de mon TCD1 :-)

Encore merci

Amicalement

Jérôme

Bonjour Via,

Désolé de te solliciter une nouvelle fois, mais j'ai de nouveau besoin de ton aide. Dans mon onglet suivi global, je dois tirer une formule (colonne E) de la dernière cellule remplie à celle d'en dessous. Je voulais trouver la première ligne vide (ou devra être ma "nouvelle" formule)

'''Variable pour sélectionner la première ligne vide (onglet Suivi global) colonne E

       ESG = Range("E3").End(xlDown).Row +1

Puis je voulais l'envoyer jusqu'à la dernière cellule remplie de la colonne D (qui en a justement qu'une de plus remplie)

'''Variable derligneSuiviG = Envoie la formule jusqu'à la dernière ligne remplie de la colonne D

    derligneSuiviG = Range("D" & Rows.Count).End(xlUp).Row

J'ai ensuite sélectionné la cellule souhaité 

Cells(ESG, 5).Select

Et j'ai essayé d'envoyer ma cellule par les propositions ci dessous mais ça n'a pas fonctionné.

    Selection.AutoFill Destination:=Range(Cells(ESG, 5), Cells(derligneSuiviG, ESG))

    Selection.AutoFill Destination:=Range(Cells(derligneSuiviG, 5))

    Selection.AutoFill Destination:=Range(Cells(derligneSuiviG, ESG))

J'ai également essayé ceci

    ESG = Range("E3").End(xlDown).Row
    Cells(ESG + 1, 5).Select
    Selection.AutoFill Destination:=Range(Cells(ESG, derligneSuiviG))

Et pareil ça n'a pas fonctionné. Saurais tu ce que j'ai mal exécuté ?

Merci pour ton aide,

Amicalement

Jérôme

Bonjour Via,

Merci beaucoup, j'ai cherché, cherché, pour ne pas te déranger, mais je n'ai finalement pas eu le choix. Ca marche parfaitement. J'ai un peu compris le principe, mais j'ai encore du mal et je finis toujours par bloquer sur un élément.

Je profite pour te poser une autre question si tu le veux bien ? J'ai une commande qui va chercher les résultats des TCD1/TCD3/TCD5 et les reporte dans mon tableau onglet suivi global.

L'enregistreur m'a écrit cette commande : ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""IEP - Venue/Passage"",TCD!R29C9)"

Ca fonctionne très bien! Ma seule crainte, c'est que les TCD sont mouvants selon les résultats et peuvent être +/- long et s'il devait être plus long que ce qui est calculé et devait commencer qu'à la ligne par exemple 35 il me renverrait une erreur. Penses tu qu'il soit possible de remplacer le TDC!R29C9 par mon HTCD5 qui correspond à la première cellule du TCD5 ?

Merci pour ton aide,

Amicalement

Jérôme

Re,

Oui c'est bien ça, ligne 29 de la colonne 9 qui correspond à mon TCD5. 

Du coup, la seule variable que j'ai du TCD5 est celle ci

'Variable Haut TCD5 - Selectionner la deuxième cellule vide à droite du TCD 4
    HTCD5 = Cells(DLTCD3 + 9, 9).Select

J'ai essayé de mettre cette variable pour les colonnes (Exactement celle du TCD1), mais je ne comprends pas quel élément je dois modifier pour l'adapter au TCD5

'''variable dernière colonne remplie de l'onglet TCD du TCD5
    CTCD5 = Sheets("TCD").Rows(1).Find("*", , , , xlByColumns, xlPrevious).Column

et terminer avec cette commande qui n'a pas fonctionné : 

ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""IEP - Venue/Passage""," & "TCD!R" & HTCD5 & "C" & CTCD5 & " )"

Et une deuxième questions, j'ai besoin d'inscrire la date du jour + du texte à coté.

J'ai fait la formule 

ActiveCell.FormulaR1C1 = "=TODAY()& "" test"""

Pour copier/coller en valeur sauf que la date se met en code 44759 même quand je met en format date. Saurais tu comment faire ?

Merci pour ton aide,

Amicalement

Jérôme

Comme je comprends la cellule en ligne 29 et colonne 9 doit être la 1ere en haut à gauche du TCD

HTCD5 n'est pas chez toi un numéro de ligne, c’est la sélection d'une cellule

par contre CTCD5 renvoie bien un n° de colonne mais ce n'est pas la 1ere du TCD5

IL faut que par formules tu détermines la 1ere ligne et la 1ere colonne de ton TCD5

HTCD5 = ..... et CTCD5=.....

Ensuite pour vérifier que les valeurs retournées sont les bonnes, pour test (tu enlèveras cette ligne après) tu mets MsgBox HTCD5 & " " & CTCD5

Quand tu auras déterminé les bonnes valeurs la formule GETPIVOTDATA... devrait fonctionner

Cdmnt

Via