Bonjour,
Ou se trouve la procédure [TDC] et que fait-elle ?
Se serait plus simple avec le fichier sur : http://cjoint.com/ !

Oui pas faux je te net ca de suite
http://cjoint.com/?lmjNdoZgof
et voila

Ben oui mais si tu regardes les macro elle doivent y etre nan ?

Nan dsl mais le fichier est vide , ya bien trois feuilles , mais pas de macro la théorie et la pratique c'est la même chose...enfin en thé­orie

Sinon voila comment ca marche, j ai cree une barre d outil personnelle avec une icone qui quand je clique dessus lance cette macro



Private Sub veriftdc()
checkTDC.Show
End Sub


donc cette macro lance une userform chektdc, avec en texte quelques recommendation et deux bouton un pour lancer la macro TDC (qui est une macro qui fait des tableau croise dynamique de maniere assite) donc dans cette userform j ai ca

Private Sub Run_Click()
Call TDC
End Sub


Private Sub closee_Click()
Unload checkTDC
End Sub

Private Sub Label1_Click()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy

' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("j.######@live.fr")
.Close SaveChanges:=False
End With



tout marche sauf que le bouton Run ne veut veut pas appeller la macro TDC dont je te met le code

Sub TDC()

Dim Num_col As Integer, Num_col2 As Integer, Num_col3 As Integer, Num_col4 As Integer, diff As Integer
Set range1 = Application.InputBox("Select the title of the first variable !", "Sélection de cellules", Type:=8)
Set Range3 = Application.InputBox("Select the title of the second variable !", "Sélection de cellules", Type:=8)
Num_col = range1.Column
Set range2 = Application.InputBox("Select the first column to the right of the table touches the table !", "Sélection de cellules", Type:=8)
Num_col2 = range2.Column
diff = -(Num_col2 - Num_col)
Lettre_col = Left(range2.Address(0, 0), (range2.Column < 27) + 2)
Set Num_ligne = Application.InputBox("Select the square tdc !", "Sélection de cellules", Type:=8)
Num_ligne = Num_ligne.Row
With Range(Lettre_col & "1")
.FormulaR1C1 = "=RC[" & diff & "]"
.AutoFill Destination:=Range(Lettre_col & "1 :" & Lettre_col & "10000")
End With

Num_col3 = Range3.Column
diff = -((Num_col2 + 1) - Num_col3)
Lettre_col = Left(range2.Offset(0, 1).Address(0, 0), (range2.Offset(0, 1).Column < 27) + 2)
With Range(Lettre_col & "1")
.FormulaR1C1 = "=RC[" & diff & "]"
.AutoFill Destination:=Range(Lettre_col & "1 :" & Lettre_col & "10000")
End With
Num_col3 = Num_col2 + 1
Num_col4 = Num_col3 + 2
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C" & Num_col2 & ":R6000C" & Num_col3).CreatePivotTable TableDestination:="Sheet1!R" & Num_ligne & "C" & Num_col4, TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:=Range3, ColumnFields:=range1
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(CStr(range1))
.Orientation = xlDataField
.Function = xlCount
End With
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Columns(Lettre_col).ClearContents
Lettre_col = range2.Column
Columns(Lettre_col).ClearContents
End Sub




le tout etant dans VbaProject(PERSONAL.XLS)

Bonjour,
Votre fichier étant vide, j’essayerai de faire avec le pote 7 !
Question : ou se trouvent les procédures ; sur module de feuille , général ….
C’est important de le savoir ?

Je t ai mis une umage de ce que je vois sous excel
http://www.cijoint.fr/cjlink.php?file=cj200911/cijigaycrU.jp­g

avec les etapes et la grosse fleche en rouge c est ce qui marche pas


normalement elle se trouve en generale , puisque elle sont dans mon classeur perso

de plus sous excel pas sous l edituer si je veux selectionner une macro elle apparait sous ce nom PERSNAL.XLS!(nom_de_la_macro).(nom_de_la_macro)

Bonjour,
Merci pour l’information.
Patience pour la suite.

Bonjour,
merci, ne t inquiete pas je te repond juste le plus vite possible parce que je pense c est la moindre des choses

Bonjour,
Selon votre code, sur mon fichier temporaire, la procédure [TDC] se déclenche correctement.
Mettre votre fichier sur http://cijoint.fr/ se qui me permettra de trouver l’erreur !

http://www.cijoint.fr/cjlink.php?file=cj200911/cijZglQ6ef.xl­s
mais normalement tdc marche avec tt j ai fait des dizaines de tests, tdc marche parfaitement c est mon userform qui refuse de lancer tdc

Cela ne fonctionne pas puisque que ton modul et la macro portent le meme nom , donc renomme le module en TDC_1 par exemple et la ca fonctionne la théorie et la pratique c'est la même chose...enfin en thé­orie

Ho ok c est le nom de la macro en elle mm et non du module..... fou
un grand merci a toi

De rien (moi aussi ca m'est arrivé au début je comprenais pas l'erreur) la théorie et la pratique c'est la même chose...enfin en thé­orie

Bonjour,
La procédure dans le module de la feuille [checkTDC] doit être comme suit :
Private Sub CommandButton1_Click()
checkTDC.Hide
Call TDC
End Sub

Merci ponpon

mais ca me fait une erreur
du coup j ai essaye ca

Private Sub CommandButton1_Click()
If CheckBox1 And CheckBox2 Then
Call TDC
End If
checkTDC.Hide
End Sub


mais ca ne le cache pas non plus...

C est fou plus je galere et plus je kiffe