Résultats de la recherche

  1. ziopizza

    Création de feuilles selon la valeur des cellules

    Re : Création de feuilles selon la valeur des cellules Bonjour lililette,Eric s, Regarde le fichier joint. Meilleurs voeux 2007 Salut Yves
  2. ziopizza

    legende autre que textbox

    Re : legende autre que textbox Re Bonjour, Private Sub Worksheet_BeforeRightClick(ByVal target As Range, Cancel As Boolean) Cancel = True UserForm1.Left = target.Offset(1, 1).Left + 15 'Ici on regle la position 15 ou plus ou moins UserForm1.Top = target.Offset(1, 1).Top + 85 'Ici on regle la...
  3. ziopizza

    legende autre que textbox

    Re : legende autre que textbox Bonjour à tous et meilleurs voeux 2007, Une autre approche voir fichier joint, Salut Yves
  4. ziopizza

    Copié-Collé de cellules sur différentes feuilles en fonction de leur contenu

    Re : Copié-Collé de cellules sur différentes feuilles en fonction de leur contenu Bonjour kat,le Forum, regarde ce fichier,j'ai adapté le code de jean Marie à ta demandes. Salut Yves
  5. ziopizza

    Macro copier coller label dans une userform

    Re : Macro copier coller label dans une userform Bonsoir atiom,bqtr, Autre façon:1UserForm, 5 Labels,un bouton pour valider Private Sub CommandButton1_Click() Dim i As Byte ligne = Range("a65536").End(xlUp).Row + 1 'recherche de la derniere ligne 'ajoute a la base de...
  6. ziopizza

    copier-coller en décalant

    Re : copier-coller en décalant Bonjour Djeanmi,mcz29, Un petit exemple à adapter Sub copi() 'pour la feuille active Dim Lg As Long Lg = Range("A65536").End(xlUp).Row 'ici lg devient la derniere ligne Ici Ta selection de cellules.Copy Rows(Lg + 1).Select ActiveSheet.Paste End Sub mcz29 a...
  7. ziopizza

    Renommer un répertoire avec InputBox

    Re : Renommer un répertoire avec InputBox Ce code fonctionne,si un dossier nommer repet ce trouve sur C, adapte le chemin. Private Sub CommandButton1_Click() Dim Targetdir As String Targetdir = InputBox("Donnez le nom de votre nouveau répertoire") Name "c:\repet" As "c:\" & Targetdir End Sub...
  8. ziopizza

    Ajout d'une condition à un code VBA

    Re : Ajout d'une condition à un code VBA Bonsoir, adilprodigy,Jacques87 Peut étre comme ça, Au début de ton code: if ActiveSheet.Name<>"Feuil2" then Ici appel de ton userform Ici la suite de ta procédure Salut Yves
  9. ziopizza

    Renommer un répertoire avec InputBox

    Re : Renommer un répertoire avec InputBox Bonjour le_coc,le Forum, Essaye comme ça , Name "U:\Programmes\Temp Programme" As "U:\Programmes\" & Targetdir & ".xls" salut Yves
  10. ziopizza

    Empécher éffacement ou deplacement de cellules

    Re : Empécher éffacement ou deplacement de cellules A à la place de ce code, Private Sub UserForm_Initialize() lg = Range("a65536").End(xlDown).Row ListBox1.RowSource = "GestiondesAuteurs!a9:a" & lg End Sub Colle celui çi, Private Sub UserForm_Initialize() Dim tablo() Dim c As Range ReDim...
  11. ziopizza

    Empécher éffacement ou deplacement de cellules

    Re : Empécher éffacement ou deplacement de cellules Bonjour Noel,le Forum, Je te renvoie le fichier plus propre, pour le passer dans ton application,exporte-le sur ton bureau. et ensuite importe-le dans ton fichier. En VBA : Dans mon application, Selectionner l'Userform2 1. fichier exporté...
  12. ziopizza

    Label16_DblClick

    Re : Label16_DblClick Un exemple fichier joint,
  13. ziopizza

    Label16_DblClick

    Re : Label16_DblClick Bonjour Tata yoyo,le Forum, Dans un module public a as string ou integer, selon le type de la valeur 1 Userform: a=userform1. textbox1.value 2 Userform: Userform2.texbox2.value=a salut Yves Le titre avec la question?, je vois pas le rapport
  14. ziopizza

    Empécher éffacement ou deplacement de cellules

    Re : Empécher éffacement ou deplacement de cellules Bonsoir Noel,le Forum, Pas sur d'avoir compris,pour l'utilisation de ton Userform regarde fichier joint. Salut Yves
  15. ziopizza

    Empécher éffacement ou deplacement de cellules

    Re : Empécher éffacement ou deplacement de cellules Bonsoir Noel, Un exemple de gestion de livres. Dis moi ce que tu en penses. @+ Yves Oups on se croise!! Je regarde ton fichier joint
  16. ziopizza

    Ouverture programmer sur TCD

    Re : Ouverture programmer sur TCD Grand Merci Pierrot, Et bonne journée Yves
  17. ziopizza

    Ouverture programmer sur TCD

    Re : Ouverture programmer sur TCD Bonjour Pierrot93, Je joins un petit fichier,qui je pense sera plus clair,j'ai collé ton code mais cela ne marche pas?,moi perso je suis largué. Salut et Merci Yves
  18. ziopizza

    Ouverture programmer sur TCD

    Bonjour le Forum, J'ai un TCD sur une feuille, avec comme choix( Mois et Jour), je voudrais qu'à l'activation de la feuille le TCD s'ouvre sur le mois et le jour de la date du jour. Exemple:Aujourd'hui le 30/11/06 Donc mois =11 Jour=30. Merci d'avance. Salut Yves
  19. ziopizza

    Empécher éffacement ou deplacement de cellules

    Re : Empécher éffacement ou deplacement de cellules Bonjour Noel ,Pierro93, Un nouveau fichier joint, avec sélection dans la colonne titre de livres, et format de date 1/1/01 @+Yves
  20. ziopizza

    Copier plage vers autre feuille

    Re : Copier plage vers autre feuille Bonjour à tous, Change : selection.paste Par :Selection.PasteSpecial Paste:=xlPasteValues Salut Yves