IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Index du forum

Recherche:

Type: Messages; Utilisateur: fring

Page 1 sur 80 1 2 3 4

Recherche: Recherche effectuée en 0,05 secondes.

  1. Votes reçus
    +4 -0
    Réponses
    2
    Affichages
    17 708

    [XL-2007] Bonjour, Une ligne entière s'insère toujours...

    Bonjour,

    Une ligne entière s'insère toujours au-dessus.
    Si tu veux l'insérer en-dessous, tu peux faire

    Sheets(WS_FEUIL).Rows(i + 1).Insert
  2. Votes reçus
    +1 -0
    Réponses
    3
    Affichages
    7 789

    Bonjour, Essaie comme ceci : Private Sub...

    Bonjour,

    Essaie comme ceci :

    Private Sub CommandButton1_Click()
    Dim DerLig As Integer

    With Worksheets("Listing")
    DerLig = .Range("N" & Rows.Count).End(xlUp).Row + 1
    .Range("N" &...
  3. Votes reçus
    +0 -0
    Réponses
    4
    Affichages
    3 943

    Cela permet de connaître la première cellule vide...

    Cela permet de connaître la première cellule vide sous la plage filtrée, si tu souhaites avoir la dernière cellule, de la plage filtrée, contenant une valeur il suffit de ne pas mettre "+1"
  4. Votes reçus
    +2 -0
    Réponses
    5
    Affichages
    2 809

    [XL-2007] Bonjour, Jette un oeil à la propriété...

    Bonjour,

    Jette un oeil à la propriété LastSavedBy de ce tutoriel
  5. Votes reçus
    +1 -0
    Réponses
    4
    Affichages
    3 943

    Bonjour, Si tu n'as qu'une seule colonne...

    Bonjour,

    Si tu n'as qu'une seule colonne filtrée ou si toutes les colonnes filtrées possèdent le même nombre de ligne tu peux utiliser ceci :

    Range("_filterdatabase").Rows.Count + 1
  6. Votes reçus
    +0 -0
    Réponses
    1
    Affichages
    618

    Bonjour, Ci-dessous un exemple pour extraire...

    Bonjour,

    Ci-dessous un exemple pour extraire les lignes de texte de la cellule A1 et réinjection de chaque ligne dans les cellules A1, B1, C1, D1, etc...

    Sub test()
    Dim strTxt() As String, i...
  7. Votes reçus
    +0 -0
    Réponses
    2
    Affichages
    1 074

    Bonjour, Modifie la propriété ShowModal du...

    Bonjour,

    Modifie la propriété ShowModal du UserForm "popup" et met là à False
    Ou directement via le code

    popup.Show 0
  8. Discussion: Selection de plages

    par fring
    Votes reçus
    +0 -0
    Réponses
    1
    Affichages
    511

    Bonjour, Essaie comme ceci : Sub...

    Bonjour,

    Essaie comme ceci :

    Sub addAnOperative()
    Dim Op As Operative, n As Integer, derL As Integer

    Op.name = InputBox("Operative Name:", "Add an operative")
    Op.numberOfCertificates = 0...
  9. Votes reçus
    +1 -0
    Réponses
    4
    Affichages
    1 018

    [XL-2010] Bonjour, Ce lien...

    Bonjour,

    Ce lien te sera peut-être utile.
  10. Discussion: Compiler des données

    par fring
    Votes reçus
    +1 -0
    Réponses
    3
    Affichages
    873

    Bonjour, Essaie comme ceci : Sub copier()...

    Bonjour,

    Essaie comme ceci :

    Sub copier()
    Dim i As Integer, j As Integer, derL As Long
    Dim WbkSource As Workbook

    Application.ScreenUpdating = False
  11. Discussion: Workbooks Open

    par fring
    Votes reçus
    +0 -0
    Réponses
    7
    Affichages
    751

    [XL-2003] Bonjour, Il n'y a pas de raison que cela ne...

    Bonjour,

    Il n'y a pas de raison que cela ne fonctionne plus avec la version 2003.
    Voir peut-être les paramètres de sécurité des macros, celles-ci sont sans doute désactivées.
  12. Votes reçus
    +2 -0
    Réponses
    5
    Affichages
    1 306

    [XL-2010] Bonjour, Juste pour info, tu ne dois pas...

    Bonjour,

    Juste pour info, tu ne dois pas mettre True / False mais l'un ou l'autre, True pour visible et False pour non visible.
    Avec les propriétés True ou False il est possible de rendre les...
  13. Discussion: couper coller VBA

    par fring
    Votes reçus
    +0 -0
    Réponses
    7
    Affichages
    903

    [XL-2010] Bonjour, Ceci devrait convenir Sub test()...

    Bonjour,

    Ceci devrait convenir

    Sub test()
    Dim i As Integer

    With Sheets("cotisation") '<-- nom de feuille "cotisation" à adapter
    For i = 2 To .Cells(Rows.Count, "K").End(xlUp).Row
    ...
  14. Votes reçus
    +1 -0
    Réponses
    3
    Affichages
    1 252

    [XL-2007] Bonjour, Le fichier frx sert à stocker des...

    Bonjour,

    Le fichier frx sert à stocker des informations relatives au fichier frm, seul le fichier frm doit être importé dans ton nouveau projet.

    http://support.microsoft.com/kb/152582/fr
  15. Votes reçus
    +0 -0
    Réponses
    2
    Affichages
    2 204

    [XL-MAC 2011] Bonjour, Il n'est pas possible d'activer les...

    Bonjour,

    Il n'est pas possible d'activer les macros automatiquement, sinon cette sécurité ne servirait à rien !

    Une des solutions est de signer numériquement le projet VBA, en résumé la...
  16. Votes reçus
    +0 -0
    Réponses
    4
    Affichages
    1 086

    Bonjour, Une autre possibilité, en supposant...

    Bonjour,

    Une autre possibilité, en supposant par exemple que les noms des feuilles se trouvent en A1 à A4 de la première feuille :

    Sub test()
    Dim i As Integer

    For i = 1 To 4
    ...
  17. Votes reçus
    +0 -0
    Réponses
    3
    Affichages
    737

    [Toutes versions] Bonjour, Au lieu de mettre un point d'arrêt,...

    Bonjour,

    Au lieu de mettre un point d'arrêt, ajoute une ligne de code avec l'instruction Stop et pour les variables tu pourrais par exemple ajouter la ligne suivante

    Debug.Print "xSpyConnexion...
  18. Votes reçus
    +0 -0
    Réponses
    3
    Affichages
    758

    Le verrouillage manuel de la feuille ne convient...

    Le verrouillage manuel de la feuille ne convient pas ?
    Tu verrouilles toutes les cellules qui ne peuvent pas être modifiées et ensuite tu protèges la feuille, le tout via l'onglet Accueil --> menu...
  19. Votes reçus
    +0 -0
    Réponses
    4
    Affichages
    3 332

    Bonjour, A mon avis la seule solution qui...

    Bonjour,

    A mon avis la seule solution qui répondrait à la demande du survol consiste à créer une série pour chaque point et de nommer la série par le nom du collaborateur mais c'est du "chipo"...
  20. Votes reçus
    +2 -0
    Réponses
    6
    Affichages
    15 713

    [XL-97] Avec tes autres variables, tu déclares une...

    Avec tes autres variables, tu déclares une variable de type Objet

    Dim oImg As Object

    Et ensuite tu peux faire comme ceci

    Fichier = sPath & oRst("LIST") & ".JPG"
    Set oImg =...
  21. Votes reçus
    +2 -0
    Réponses
    6
    Affichages
    15 713

    [XL-97] Bonjour, Exemple (à adapter) pour placer...

    Bonjour,

    Exemple (à adapter) pour placer l'image 1 au centre de la cellule A1

    With Sheets(1).Shapes("Image 1")
    .Left = Range("A1").Left + (Range("A1").Width / 2) - (.Width / 2)
    .Top =...
  22. Votes reçus
    +0 -0
    Réponses
    7
    Affichages
    1 711

    [XL-2003] Bonjour, Tu peux tester ceci : Dans un...

    Bonjour,

    Tu peux tester ceci :

    Dans un module standard

    Sub Verif(sTxtBox As String)
    Dim dTotal As Double, Ctrl As Control
    With UserForm1
    For Each Ctrl In .Controls
  23. Votes reçus
    +0 -0
    Réponses
    13
    Affichages
    3 314

    [XL-2007] 123654789 n'est pas un Long valable pour une...

    123654789 n'est pas un Long valable pour une couleur, la valeur la plus élevée est 16777215 pour la couleur blanche
  24. Votes reçus
    +0 -0
    Réponses
    13
    Affichages
    3 314

    [XL-2007] Je n'ai pas le temps de regarder pour le moment...

    Je n'ai pas le temps de regarder pour le moment mais dans mon code j'avais ajouté une ligne qui affiche tous les résultats afin de pouvoir vérifier ce que ça donne.
    Désactive la ligne qui génère...
  25. Votes reçus
    +2 -0
    Réponses
    2
    Affichages
    1 057

    [XL-2007] Une solution serait d'utiliser un tableau en...

    Une solution serait d'utiliser un tableau en paramètre ParamArray mais dans ce cas l'utilisation de Optional n'est pas autorisé.

    Function testfonction(ParamArray Option1() As Variant)
    Dim i As...
Affichage des résultats 1 à 25 sur 2000
Page 1 sur 80 1 2 3 4