Contenu récent par Épaf

Re : Simplification Code VBA Autofilter Bonjour, Tu as plusieurs solutions pour régler ton problème, par exemple - créer une fonction à laquelle tu envoies les paramètres variables de ta mise en forme - créer un tableau des feuilles de calculs pour leur affecter tous les paramètres...

Re : vérifier si fichier du répertoire1 ne sont pas dans répertoire2 Bonjour, Je te propose cette solution Sub Test() Dim NomFich() As String Dim Rep1 As String, Rep2 As String, No As Integer Rep1 = "D:\répertoire1\" 'A ADAPTER Rep2 = "D:\répertoire2\" 'A ADAPTER No = 0...

Re : VBA :copie insere et coller qui marche pas Parce qu'un jour ça ne "marchera" pas et tu ne sauras pas pourquoi. ;)

Re : VBA :copie insere et coller qui marche pas Bonjour, Je suis d'accord avec Eric, Copy -> Paste doivent se suivre. Mais je vois autre chose. Je ne sais pas si je n'ai pas tout lu mais si zonecol est bien un range (plage de cellules) nblignes = zonecol.Count ne donne pas le nombre de...

Re : taille des caractères dans la barre de formule Bonjour, Deux clics dans la cellule affichent la formule au format de la cellule... à défaut de l'avoir dans la barre de formules :rolleyes:

Re : Boucle for each uniquement dans les celulles visibles Avec ton code, tu peux vérifier si la ligne est visible Dim Ligne As Long For Ligne = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If (Not Rows(Ligne).Hidden) And (Cells(Ligne, "A").Value = "Total Test1" Or _...

Re : Boucle for each uniquement dans les celulles visibles Remplace c.address par c ou par c.value dans le code de Pierrot si ce sont les valeurs que tu veux ;)

Re : Boucle for each uniquement dans les celulles visibles Désolé, j'ai (encore) mal lu :o je pensais à une sélection destinée à copier uniquement les cellules visibles..., auquel cas la sélection est nécessaire... Sinon, bien sûr, l'ami Pierrot a raison :mad: A+ Edit J'ai rien dit, la...

Re : Boucle for each uniquement dans les celulles visibles Manuellement, c'est Menu édition -> Atteindre -> Cellules visibles après avoir sélectionné toutes les cellules. Pa macro, je crois que c'est un des rares cas où la sélection est indispensable Cells.Select...

Re : Maximum spécial J'ai corrigé un petite erreur (utilisation de NoLIg à la place de NoLig2 pour placer le ValMax :o ) ici -> *** Sub Test() Option Explicit Dim derlig As Long, NoLig As Long, NoLig2 As Long, valeur As Long, valmax As Long derlig =...

Re : Maximum spécial Edit Regarde ma réponse suivante, j'explique le pb.

Re : Rapatriment lien hypertexte Pour le principe Sub test() Dim FL1 As Worksheet, NomFich As String NomFich = "D:\xls\Add si tu veux bien.xls" Set FL1 = Worksheets("Feuil1") FL1.Hyperlinks.Add FL1.Cells(1, 1), NomFich Set FL1 = NoThing End SubA adapter en prenant...

Re : Maximum spécial 1 secondes pour 50000 lignes, c'est pas mieux ? Sub Test() Dim derlig As Long, NoLig As Long, NoLig2 As Long, valeur As Long, valmax As Long derlig = Split(Worksheets("feuil1").UsedRange.Address, "$")(4) Do NoLig = NoLig + 1 valeur =...

Re : Maximum spécial Avec une boucle do loop while, on peut éviter la double boucle For Next ainsi que la suppression des lignes contenant 0 ;) Ce qui n'enlève pas le mérite de mutzik (rapidité, exactitude, maîtrise, etc...) :D

Re : Rapatriment lien hypertexte Salut la Lozère, c'est le dauphiné qui te cause, :D Quelle est la difficulté que tu rencontres ? Lire la zone de texte ou l'insérer dans une cellule ? Sous quelle forme "simple Texte" ou "Lien hypertexte" ? Tu dis A+