Contenu récent par sousou

  1. sousou

    Autres Fusionner des cellules indiquées dans des TextBox

    bonjour Comme ceci avec en plus la suppression de la fusion Private Sub CommandButton4_Click() With ActiveSheet addeb = .Range(Me.OrigineParcelle).Address adfin = .Range(Me.FinParcelle).Address .Range(addeb & ":" & adfin).Merge End With End Sub Private Sub CommandButton5_Click() With...
  2. sousou

    XL 2016 Macro Excel / Base de données

    Re Pas tout saisit l'exemple présenté est les résultat? Quel est la structure du fichier fournisseur? Ou doit se trouver la macro ? dans un fichier qu contient les numéros des plaques (structure)? C'est quoi le V en début des numéros de plaques?
  3. sousou

    XL 2016 Macro Excel / Base de données

    Bonjour Avec un exemple de se que tu souhaites, ce serait plus simple (comme indiqué dans la charte de David)
  4. sousou

    XL 2016 Enregistreur macro en panne ?

    Bonjour ton code est vraiment strange des points placés n'importe où et il risque de ne pas faire grand chose. Voila à quoi ca devrait ressembler Sub Macro1() Range("A3:G3").Select Selection.Copy Rows("8:8").Select Selection.Insert Shift:=xlDown End Sub
  5. sousou

    Résolu Extraire des lignes d'un tableau par mots clefs

    bonjour Ca peut peut-être t'aider Cette appli recherche un mot, un bout de mot, un bout de phrase ou une phrase dans une zone sélectionné du fichier et renvoi un tableau des emplacements trouvés
  6. sousou

    XL 2013 Formulaire image

    Le nombre d'images ne pose pas de problème. ou sans tableau. Sub testimges() chemin = "C:\Users\bas\Documents\exceldwnload\photos\" 'chemin de tesimgaes img = Dir(chemin & "*.gif") 'filtre des extensions While img <> "" MsgBox img 'ici tu mets l'afficgie de l'image et l'attente img = Dir() Wend...
  7. sousou

    XL 2013 Formulaire image

    Bonjour La solution serait de lire tous les noms d'image du dossier "protraits" avec dir par exemple, de les mettre dans un tableau ou une collection, puis de lire avec l'index du tableau
  8. sousou

    Gestion documentaire - Ajout d'un bouton export

    Ajout d'un export du document dans la feuille de saisie
  9. sousou

    Gestion documentaire

    sousou a mis à jour Gestion documentaire avec une nouvelle version : Ajout d'un bouton export Lire la suite de cette mise à jour...
  10. sousou

    XL 2013 PLANNING

    Re Si j'ai compris en utilisant le fichier de patrick , il te suffit de copier les formules. (à moins qu'il ne me contredise;))
  11. sousou

    XL 2013 PLANNING

    Bonjour Pour l'ensemble de ce site tu dois savoir que les réponses que nous pouvons apportées sont conditionnées par le fait que nous comprenions bien les questions, que tu te poses. N'étant pas dans ton projet, nous ne saisissons pas toujours ou tu veux en venir, et là! c'est le cas. Tu parles...
  12. sousou

    XL 2013 PLANNING

    Bonjour. Tu peux t'inspirer de cette solution. a modifier en fonction des colonnes que tu veux réactive
  13. sousou

    PLD

    Bonjour Mais tu fait quoi de la cellule bleue? =SI(I2="";0;(A11+(A11*25%)))
  14. sousou

    XL 2010 sauvegarde avec générations

    re en théorie si! A chaque fois que tu ouvre le fichier, il renomme les anciens avec ind-1 et le dernier est copié avec ind 5. si l'indice est 1 je supprime le fichier Je vais vérifier Il me semble que cela fonctionne
  15. sousou

    Résolu le format de date change alternativement sur chaque ligne...

    Bonjour ta textebox renvoi du texte et non une date excel Essai comme-ceci Sheets("EMPRUNT MATERIEL").Range("A65000").End(xlUp).Offset(0, 4).Value = CDate(TextBox2.Value) Sheets("EMPRUNT MATERIEL").Range("A65000").End(xlUp).Offset(0, 5).Value = CDate(TextBox3.Value)
Haut Bas