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