Résultats de la recherche

Re : Extraire le numero de ligne de la formule max(a2:a300) Bonjour hoerwind Exact. J'ai fait le test sur une plage A1:A10 Merci de m'avoir corrigé.

Re : (VBA) Nommer feuille automatiquement d'après nom de fichier Bonjour Tu peux nous montrer ta macro d'import ?

Re : Extraire le numero de ligne de la formule max(a2:a300) Bonjour Essaie cette formule =EQUIV(MAX(A2:A300);A2:A300;0)

Re : Macro pour rajouter des lignes dans un tableau Tu as vu la modifiaction du code dans mon précédent message ? Post-scriptum: C'est mieux ne pas multiplier les discussions pour une même question.

Re : Macro pour créer lignes supplémentaires selon conditions Bonjour de nouveau Pourquoi créer une seconde discussion ?? Je viens de te répondre dans la première !!! (Pas de données confidentielles dans les pièces jointes)

Re : Macro pour rajouter des lignes dans un tableau Bonjour Mets une autre version de ton fichier (sans données confidentielles) Dans ton dernier fichier, les noms et prénoms apparaissent. Modifies comme ci-dessous Private Sub CommandButton1_Click() Dim derlig As Long, derlig2 As...

Re : Récupérer dans une cellule la valeur saisie dans l'InputBox Bonjour de nouveau En ajoutant cela Range("A2") = nomavant Intersect(a.EntireRow, Range("A:D")).Select 'Colonnes("A à D") Cela donne ce que tu veux non ?

Re : Récupérer dans une cellule la valeur saisie dans l'InputBox Je parle de ce code Private Sub CommandButton2_Click() Dim nom$, a As Range 1 nom = InputBox("Saisissez le Numéro de la Ligne", "Modification d'une Saisie") Set a = [AD6:AD304].Find(nom, LookIn:=xlValues...

Re : Récupérer dans une cellule la valeur saisie dans l'InputBox Bonjour de nouveau J'ai testé la modification que je propose avec ton fichier joint et cela sélectionne les cellules A : D avec le numéro de ligne saisi dans l'inputbox. (Sans le ActiveSheet il ne se passait rien)

Re : Récupérer dans une cellule la valeur saisie dans l'InputBox Bonjour En ajoutant la référence de la feuille, cela semble OK (Ligne présente dans le code du CommanButton2) Set a = ActiveSheet.[AD6:AD304].Find(nom, LookIn:=xlValues, LookAt:=xlWhole)

Re : Comment réaliser une colonne qui ne contiendrait que des cases a cocher Bonjour @DoubleZéro Dans Excel 2003, les modules sont rangés dans dossier (jaune) nommé Modules Ce n'est pas pareil sur Excel 2007 ? (ou alors tu as peut-être retouchée ta copie d'écran ?)

Re : barre menu : désactiver un menu Bonjour En me référant simplement au titre de ta question, est-ce que les macros ci-dessous y répondent ? Sub pasdemenuFeuille() CommandBars(1).Controls(5).Controls(4).Enabled = False End Sub Sub RemettremenuFeuille()...

Re : Envoyer une feuille excel en pièce jointe avec destinataires différents Bonjour Chez certains FAI, il semble qu'il y a une limite du nombre de mails sur le serveur SMTP (pour éviter le SPAM) C'est peut-être de là que vient le souci. Post-scriptum: Mon précédent message voulait...

Re : Problème de transfère de lignes Bonjour Je ne parlais pas du code de mon précédent message (qui fonctionne - j'ai testé) mais de la macro que j'avais posté dans autre discussion et qui est dans ta pièce jointe. Si tu avais cherché à l'adapter, il devrait y avoir traces de tes...

Re : Problème de transfère de lignes Pour ta recopie sur la feuille CAISSE Essaie ceci Sub test() Sheets("SAISIE").Range("A2:A" & Sheets("SAISIE").[A65536].End(xlUp).Row).Resize(, 13).Copy Sheets("CAISSE").Range("A65536").End(xlUp)(2) End Sub En ayant pris de modifier ta feuille CAISSE...

Re : Problème de transfère de lignes Tu as essayé d'adapter le code que je t'ai proposé ? J'ai pas l'impression car je ne vois aucune trace de macro d'essai dans ton fichier.

Re : Problème de transfère de lignes Si, si je suis toujours là. Mais je fais autre chose pour le moment. Quel est le problème exactement ? Demande à ton pote dans ce cas Tu as compris le mien de code au moins ?

Re : Transparent si pas d'image. Bonjour Cela semble OK ainsi Private Sub Worksheet_Change(ByVal Target As Range) Dim image As String If Not Intersect(Target, Range("B7")) Is Nothing Then If Not Len(Dir(ActiveWorkbook.Path & "\" & Target.Value & ".jpg", vbNormal)) > 0 Then image =...

Re : VBA copie d'une feuille à la suite d'une feuille d'un autre classeur! Bonjour Tu peux encore simplifier en te passant des Select Sheets("feuil1").Copy Before:=Sheets(2) ActiveSheet.Name = "NOUVEAUNOM"

Re : Range avec variable @Misange Mais il n'est pas utile qu'il soit là, non ? Normalement il devrait pas y en avoir.