Résultats de la recherche

Bonjour à toutes et à tous, Tout d'abord meilleur voeux ! J'ai ce code qui ralentie considérablement mon classeur : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If D2 Then If Not IsNumeric(Sh.Name) Then Exit Sub Dim c As Range, S As Shape Application.ScreenUpdating = False On...

Bonjour à tous, feuille "Sommaire", un icone pour cliquer et ca enregistre les feuilles (de 1 à la dernière), en format PDF dans le dossier. Sub CrationPNDenPDF() Dim sNomFichierPDF As String 'pour PDF Dim i% Dim stFeuille As String 'pour logo et pictogramme '''PDF''' If Sheets.Count < 3 Then...

Bonjour, je souhaiterai adapté ce code : Sub aa() Dim S As Shape Dim R As Range For Each S In ActiveSheet.Shapes If S.Type = msoPicture Then Set R = S.TopLeftCell Set R = R.Offset(0, -1) S.Name = R End If Next S End Sub pourrais je avoir l'adaptation pour uniquement la plage...

Bonjour à tous, Je recherche de l'aide svp : J'ai 25 feuilles (de 1 à 25) strictement identique sauf les valeurs déjà connu de E4 jusqu'à E13 Au départ, j'avais utiliser la fonction "Appareil photo" d'Excel, mais étant donner qu'il y a environ : 13 images par page, et 25 pages, cela fait 325...

Bonsoir à tous, j'souhaite crée un PDF à partir de l'onglet N°3 (Page de garde) jusqu'au dernier onglet (qui peut varier) : Sub PDFTEST() Dim sNomFichierPDF As String 'pour PDF Dim i As Integer Dim Ar(1) As String sNomFichierPDF = ThisWorkbook.Path & "\" 'chemin du fichier...

Bonjour, j'aimerai de l'aide svp. 1 fichier - 2 onglets. Le 1er onglet répond à un listing de produit en fonction des besoins d'un client (PRODUIT A, PRODUIT B, …) Le second est un cadencier de commande. J'ai donc utiliser des formules classique RechercheV. Mais Je me rend compte que le même...

Hello, besoin d'aide svp. J'essaye de faire une simple macro pour mettre 2 onglets en PDF sur le bureau : Sub PDF_SAVE() Dim Fic As String Dim LeDate As String LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy") ' Création fichier PDF Fic = Sheets(Array("Contrat"...

Bonjour, pour un classeur multi feuille, j'ai crée une petite macro pour masquer des lignes vides histoire de faire propre automatiquement mais la macro est lente (10 secondes). Pourriez vous me dire si je peux améliorer, sélection d'une plage plutôt que lignes ? 'Private Sub...

Hello en ce beau jour j'aimerai un piti coup de cellule svp. Affiche / Masque Zone de liste déroulante (formulaire) si cellule vide : Private Sub Worksheet_Change(ByVal Target As Range) With ActiveSheet.OLEObjects("Combobox1") .Visible = Me.Range("C25").Value <> "" End With End Sub

Bonsoir à tous, Je demande votre aide s’il vous plaît. Un simple fichier contenant 30 petites photos. Il y a quelques formules dans ce classeur. J’arrive à enregistrer et dès que je rajoute les 30 photos, Excel me dit :« Excel à détecter les erreurs, corriger l’ai puis« Excel à détecter des...

Bonjour à tous, j'ai crée un outil de travail pour réaliser ce qu'on appel des plandenettoyagesetdedesinfection chez nos clients. Le problème n'est pas dans son fonctionnement mais sa vitesse. En effet, j'utilise une méthode image et je pense que ca ralentie à cause de cela; Auriez vous une...

Bonsoir à tous je bugggg et demande de l'aide svp. 4 ZONES només Z1 Z2 Z3 Z4 J'ai une plage de cellule E7 à G7 qui affiche 3 de ces zones en fonction d'autre critères. Dans une cellule (exemple R8) , j'aimerai y mettre une formule qui renvoie la valeur la plus courte. Sachant...

Bonsoir La communauté, j'ai besoin de votre aide pour trouver une méthode. J'ai une liste de ville et leur code postale J'ai 3 techniciens. J'aimerai crée une facturation en fonction de leur lieu d'habitation. Zone 1 15km autour de l'habitation 23 e Zone 2 15 à 25km "" "" "" "" """ "" "" 59 e...

Bonsoir, comment fait on pour avoir un résultat en fonction de la recherche V d'une autre cellule ? Je m'explique : Si C5= "H2" alors E5=146 ca c'est ok j'ai fait une table matrice mais dans la table matrice, H2 peut être égale aussi à "146 BIS DOUBLE". Quel est le fonctionnement svp ?? Je...

Bonjour, erreur de synthaxe je pense : Sheets("1", "2", "3", ).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fic , Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False Je souhaite sélectionner les feuilles de 1 à 25. C'est toujours le...

Bonjour à tous, j'ai trouver un super code qui permet d'enregistrer un onglet spécifique en format PDF sur le bureau et de l'envoyer par mail : Public Sub Envoyer_cadencier() Dim Omg As Object Dim msg As String Dim tcl As Long Dim Fic As String On Error GoTo fin Fic = ThisWorkbook.Path...

Bonjour, je souhaite par macro, faire en sorte que le fichier es une date limite d'utilisation. En effet, chaque année la liste des articles est remise à jour, ajout/suppression article. Et les vendeurs ne doivent plus utiliser l'ancienne version. Auriez vous un code pour cela svp ?

Bonsoir à tous, en colonne A, une liste d'image. en cellule D2, on choisi dans cette Liste intitulé "Liste Poste", et l'image s'affiche en H2 Voir exemple en PJ. d'avance merci pour votre aide car cela fait quelques heure que je creuse sur le forum...

Bonsoir, j'aimerai envoyer par mail 1 ou plusieurs (jusqu'à 5) feuilles (30 onglets) en fonction d'un choix de ComboBox. J'ai crée un tableau de correspondance. J'arrive à alimenter les 5 Combobox J'arrive à envoyer par mail. Je n'arrive pas à modifier ce code pour lui faire comprendre...

Bonjour ci joint fichier pour comprendre. Je souhaite finir ma procédure mais cela échoue : 1 onglet "Choix" avec un bouton intitulé "Protocole" Lorsqu'on clique dessus, l'utilisateur à la choix de sélectionner de 1 à 5 Protocoles à choix multiple dans une liste déroulante défini et fixe de 3...