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
Type: Messages; Utilisateur: fring
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
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" &...
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"
Bonjour,
Jette un oeil à la propriété LastSavedBy de ce tutoriel
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
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...
Bonjour,
Modifie la propriété ShowModal du UserForm "popup" et met là à False
Ou directement via le code
popup.Show 0
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...
Bonjour,
Ce lien te sera peut-être utile.
Bonjour,
Essaie comme ceci :
Sub copier()
Dim i As Integer, j As Integer, derL As Long
Dim WbkSource As Workbook
Application.ScreenUpdating = False
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.
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...
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
...
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
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...
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
...
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...
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...
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"...
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 =...
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 =...
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
123654789 n'est pas un Long valable pour une couleur, la valeur la plus élevée est 16777215 pour la couleur blanche
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...
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...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.