Contenu récent par pierrejean

bonjour A tester: Sub lister_dossiers() 'Appelle tous les fichiers contenus dans un répertoire Dim ligne_dossier ligne_dossier = 5 ' ligne ou on collera les nouveaux dossiers Dim compteur_dossier compteur_dossier = Dir(ThisWorkbook.Path & "\*.xls") While compteur_dossier <> "" If...

Bonjour Sub copie() Sheets("Feuil1").Range("A1:AD1").Copy Destination:=Sheets("Feuil2").Range("A1") Sheets("Feuil2").Select For n = 1 To Columns.Count If Left(Cells(1, n), 3) = "CAS" Then Columns(n + 1).Insert End If Next End Sub

Bonjour A tester

Je ne comprend pas bien peux-tu détailler la tache en question

Je pense que c'est le fait de sélectionner toutes les cellules qui sature la mémoire

Bonjour A tester: Sub Col_Affiche_tout() ActiveSheet.Columns.Hidden = False Range("A1").Select End Sub

Bonjour Kael_88 Salut Oneida A tester:

Bonjour Dadi147 A tester: Sub test() tablo = Range("A11:B" & Range("B" & Rows.Count).End(xlUp).Row) For n = LBound(tablo, 1) To UBound(tablo, 1) tablo(n, 1) = tablo(n, 2) Next Range("A11").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo End Sub

Bonjour Mettre le Format de cellule à Nombre et 2 décimales

Bonjour A tester: Sub test() Dim Nomdest As String Nomdest = "Classeur2.xlsm" Workbooks(Nomdest).Sheets("Feuil1").Range("A1") = Range("A1") End Sub

re @patricktoulon rien n'indique qu'il s'agit de la même ligne @ aktal avec le fichier on y verrait plus clair !!!!

Bonjour Salut cp4 Le code n'est pas en cause Voir test

Salut Gerard @Kan As-tu recopié le code du dernier fichier que j'ai publié Il y a des modifications

Dans le fichier "Pro" supprimez toutes les Validations de données Dans la feuille Fournisseurs nommez la liste des fournisseurs (par exemple Laliste) Les nouveaux fournisseurs seront automatiquement incorporés En ce qui concerne la référence circulaire revoyez les formules de la ligne 2 de la...

Re Version améliorée NB : je n'ai plus le message de références circulaires ???