Une petite lancement macro via userform

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

oui pas faux je te net ca de suite
https://www.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

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.jpg

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.xls
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

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)

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

Bonjour,
La procédure que j'ai indiquée est correcte.
Par contre vous devez absolument changer le nom du module [TDC] de sorte qu’il n’y est pas le même nom qu’une procédure ( comme votre Sub TDC() ).
Note : éviter d’avoir un module qui porte le même nom qu’une procédure.

merci pour les precieuses info merci a vous deux a bientot pour d autre question lol vu que je m y suis mis a fond j en ai des tonnes d ailleur si le coeur vous en dit https://forums.commentcamarche.net/forum/affich-15169584-aide-sur-unee-macro-erreur-mais-pk

lol

merci pour tout