Résultats de la recherche

Bonjour les amis, les participants, les autres. Cela fait un bon bout de temps que je n'ai mis le nez parmi vous ! Depuis, exactement, que ce satané Crabe a jeté son dévolu sur moi qui pourtant, glandais peinard au fond de la classe... Les choses ne vont pas mieux mais je ne sais pas pourquoi...

Bonjour le fil, bonjour le forum, L'initialisation d'une UserForm, quel que soit son nom se fait toujours via l'instruction UserForm_Initialize ! Enlève le 1 (UserForm1_Initialize)et tu verras que le code sera lu et qu'il fonctionne !

Bonjour le fil, bonjour le forum, Ton fichier fonctionne correctement chez moi...

Bonjour Lazz, bonjour le forum, Peut-être comme ça : Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Application.EnableEvents = False Worksheets("SALAIRES_INTERNES").Visible = IIf(Target.Value = "123", xlSheetVisible, xlSheetVeryHidden) Target.Value = ""...

Bonjour Job75, Courage et prompt rétablissement,

Re, À par le If... End If, je ne vois pas non plus : For Each ws In Worksheets 'boucle sur tous les onglets If Not ws.Name = "Base" Then ws.Copy 'copie l'onglet dans un classeur vierge Set newWk = ActiveWorkbook 'définit le nouveau classeur newWk newWk.SaveAs (CA &...

Bonjour FCMLE, bonjour le forum Si le chemin n'est jamais le même essaie le code ci-dessous : Sub saveOnglet() Dim ws Dim newWk As Workbook Dim ED As FileDialog 'déclare la variable EF (Exporateur de Dossiers) Dim CA As String 'déclare la variable CA (Chemin d'Accès) Application.ScreenUpdating...

Bonjour TheCrabe, bonjour le forum, Si j'ai bien compris, la version 2 devrait convenir :

Bonjour CGU, bonjour le forum, Essaie avec mon code modifié : Public Sub Macro2() Dim CS As Workbook 'déclare la variable CS (Classeur Source) Dim OS As Worksheet 'déclare la variable OS (Onglet Source) Dim CD As Workbook 'déclare la variabvle CD (Classeur Destination) Dim OD As Worksheet...

Bonjour Lionel, bonjour le forum, Essaie ce code : Sub Macro1() Dim OS As Worksheet 'déclare la variable OS (Onglet Source) Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs) Dim D As Object 'déclare la variable D (Dictionnaire) Dim I As Integer 'déclare la variable I (Incrément)...

Bonjour le fil, bonjour le forum, Essaie comme ça : Sub Macro1() Dim OB As Worksheet 'déclare la variable OB (Onglet Bill) Dim OG As Worksheet 'déclare la variable OG (Onglet Gates) Dim OD As Worksheet 'déclare la variable OD (Onglet Destination) Dim TB As Variant 'déclare la variable TB...

Bonjour Excellerateur, bonjour le forum, Le code ci-dessous colore en rouge les cellules de l'onglet Bill qui ne se trouvent pas dans l'onglet Gates et en vert les cellule de l'onglet Gates qui ne se trouvent pas dans l'onglet Bill : Sub Macro1() Dim OB As Worksheet 'déclare la variable OB...

Yes ! Oeufs Corses (comme disent les poules à Bastia)...

Re, Si un envoi Aller/Retour te convient je peux te les massicoter.

Re, N'oublie pas de faire dépasser les bords d'au moins 3 mm pour qu'après le massicotage il n'y ai pas de blanc... t'es où et t'as combien de documents à massicoter ?...

Bonjour Lalie, bonjour le forum, Massicoter...

Bonjour le fil, bonjour le forum, Avec un code Full Comment, changer n'aurait pas dû poser de problème... Remplace la ligne : (Matricule) If TS(I1, 1) = TD(I2, 1) And TS(I1, 3) = TD(I2, 3) Then par : (Numéro Perso) If TS(I1, 2) = TD(I2, 2) And TS(I1, 3) = TD(I2, 3) Then

Bonjour hastaz, bonjour le forum, Sub ThauTheme() Dim CS As Workbook 'déclare la variable CS (Classeur Source) Dim CA As String 'déclare la variable CA (Chemin d'Accès) Dim OS As Worksheet 'déclare la variable OS (Onglet Source) Dim TS As Variant 'déclare la variable TS (Tableau Source) Dim CD...

Bonjour le fil, bonjour le forum, Je ne comprends pourquoi l'utilisation de fonctions au lieu de procédures !?... J'ai rajouté un onglet Accueil dans ton fichier. Dans celui-ci toutes les lignes et toutes les colonnes sont masquées ainsi les les en-têtes de lignes et de colonnes. J'ai modifié...

Bonsoir le fil, bonsoir le forum, La propriété .List d'une ComboBox nécessite au moins deux lignes sinon elle plante. Je te propose le code ci-dessous : Private Sub ComboBox2_Change() Dim Ws As Worksheet Dim F As Range Dim L As Integer Set Ws = Worksheets(ComboBox1.Value) Set F =...