Bonsoir à tous

Bonsoir Michel

Sans le fichier, difficile de te répondre. 

L'erreur viendrait peut-être d'un mauvais libellé de point GPS ?????

Eric

Bonjour à tous

Bonjour Objecteur, ABCuser

ABCuser : tu peux zipper ton fichier, et dans ce cas il fera certainement moins de 80ko

Cordialement

Eric

Bonsoir à tous
Bonsoir arthour973

Si j'ai bien compris ta demande, adapte le code ci-dessous :

Sub recherche()
Dim c As Range
Dim sh As Worksheet
Dim Var As Long

Var = 111111111
For Each sh In Workbooks("recherche_dans_feuilles.xls").Sheets
    ' mettre les colonnes possibles à la place de : b et e
    With sh.Range("b:e")
        Set c = .Find(Var, , LookIn:=xlValues, Lookat:=xlWhole)
        If Not c Is Nothing Then
            sh.Activate
            sh.Range(c.Address).Select
            'si une seule réponse possible
            'Exit Sub
        End If
    End With
Next sh
End Sub

Cordialement
Eric

Bonsoir à toutes et tous
Bonsoir potal1

J'avais le même problème que toi et j'ai trouvé un site, super sympa, et qui a un utilitaire ou plutôt une application qui devrait t'intéresser. 

Le site est "http://www.mdf-xlpages.com/"

et l'apli : "mDF XLmap"

en téléchargement ici : http://www.mdf-xlpages.com/modules/publisher/item.php?itemid=54

Eric

Bonjour à toutes et tous

Bonjour anna

Si j'ai bien compris, peux tu essayer cette formule dans D1, puis tu étires sur la colonne:

=SI(A2>0;$A$1;SI(B2>0;$B$1;SI(C2>0;$C$1;"")))

Eric

Bonsoir à toutes et tous

Bonsoir MLA

Peut-être comme ceci, si j'ai bien compris :

Option Explicit

Sub supp_fax()
Dim derlign As Integer  ' ou long
Dim i As Integer    ' ou long

' on suppose que "Fax:" est dans la colonne "A"
derlign = Range("A65536").End(xlUp).Row

For i = derlign To 1 Step -1
    If Range("A" & i) = "Fax:" Then Rows(i & ":" & i).Delete
Next i

End Sub

Dis nous

Eric

Bonsoir à toutes et tous
Bonsoir titantt

Perso, je n'ai pas trouvé ton explication "top, top" , .......désolé je n'ai rien compris

Aurais-tu déjà eu une "discussion" sur le forum sur ce "fichier" (qui n'est pas joint)? si oui, peux tu mettre le lien pour que l'on puisse en avoir la teneur. La dépose du fichier serait un plus. Une explication un peu plus claire du "but" recherché serait appréciée.

Aide nous et on pourra peut-être t'aider.

Cordialement
Eric

Bonjour à tous

Une réponse simple dans le fichier joint. Il suffit de cliquer sur la flèche orange qui se situe au-dessus de la cellule nommée pour faire apparaître ou disparaître les colonnes.

Eric

Bonsoir à tous

Bonsoir ikiki

Si j'ai bien compris, quelque chose comme cela :

If Columns("AA").Hidden = True Then    ' si colonne AA cachée
    Columns("AA:AN").EntireColumn.Hidden = False
    ActiveSheet.Shapes("Bouton 4").Select
    Selection.Characters.Text = "cache colonnes AA à AN"
Else
    Columns("AA:AN").EntireColumn.Hidden = True
    ActiveSheet.Shapes("Bouton 4").Select
    Selection.Characters.Text = "montre colonnes AA à AN"
End If

A toi de peaufiner pour tes différentes colonnes. Attention au "bouton 4".

Eric

Bonsoir à tous
Bonsoir mimi2a

Pourrais tu déposer tes lignes de code ? 

Je ne connais pas de msgbox qui permette une réponse, ne serait ce pas plutôt une "inputbox" ?

A te lire
Eric