Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Je n'arrive pas a faire un copier coller (d'un tableau + text) de la sheet "tab1" d'un excel à un ppt (test-> sheet 1) en vba.
j'ai trouver des pistes mais rien de concluant.
Merci d'avance =), je mettrais la réponse si je la trouve.
en gros je bloque sur la fomulation de cette ligne : Formula = "=VLOOKUP(B" & I & ",'"stock S" & Application.WeekNum(Date, 21)'!$B:$D,3,)"
Merci d'avance car s'est compliquer x)
Bonjour,
ActiveWorkbook.Sheets("stock S " & Application.WeekNum(Date, 21)).Activate
Dim derligne1
derligne = ActiveWorkbook.Sheets("stock Go3 S " & Application.WeekNum(Date, 21) - 1).Cells(Rows.Count, 1).End(3).Row
For I = 1 + 1 To derligne
ActiveWorkbook.Sheets("stock S " &...
Bonjour,
J'aurais une petit question en vba je crée des page avec la variable nom + & Application.WeekNum(Date, 21)
Pour créée chaque semaine une sheet avec encour s1 .
exemple :With ActiveWorkbook.Sheets("encour S " & Application.WeekNum(Date, 21)).Range("A2:A65356")
Mais je voudrais en vba...
Merci, pour l'aide =) mais j'ai peut test cette exemple pour des tableaux mais la je vien de voir un erreur et toujours en boucle une idée? thanks
sur la ligne set diapo
Bonjour,
je bloque sur un exemple que je voudrais mettre en place, Je vous explique
je souhaiterais juste passer un graphique avec des données + un tableau (une sheet complete) qui se nome programme p - > sheet"synthese p" et le copier sur le ppt programme p.pptx sheet 2.
en regardant sur...
Re ,
non car je fait chaque semaine une sorte de poste traitement avec des filtres automatiser et la taille des ref peut changer de 5 a 15.
mais sa me donne un début de piste ! merci =)
Bonjour je voudrais savoir si j'ai un tcd avec un référence a1 qui est équivalente a part une lettre et un chiffre après faire la fusion autommatique en vba ou autre merci d'avance =)
exemple début
a1 b1 c1
365-526 2...
Bonjour,
Je vien plus pour un interrogation si il i avais un if erreur qui existait pour éviter un bug de non existant
Dim Pt As PivotTable
Dim Pf As PivotField
Dim Pi As PivotItem
Application.ScreenUpdating = False
With Sheets("- 1")
Set Pt = .PivotTables("Tableau croisé dynamique1")
End With...
Bonjour
Merci deja pour ton aide Jocelyn s'est deja au top !
Ce lien n'existe plus bah je doit l'automatiser pour des personnes qui ne connaisse pas l'allongement de formule x).
pour les deux pages une reception des données filtres etc et l'autre traitement delta etc.
Mais des que je trouve la...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.