Brigitte
XLDnaute Barbatruc
Bonsoir,
J'aurais bien besoin d'avoir un bouton de "rajout de lignes" (j'ai ca dans deux autres fichiers et ca marche du tonnerre) comme une ligne modèle située en fin de tableau qui contient notamment :
- une MFC dans trois cellules
- une formule dans une autre
- une liste déroulante dans une autre
- à terme un format date...
J'ai donc créé :
- une ligne modèle en fin de tableau (que j'ai définie : insertion/nom...)
- une macro (enfin pompé sur mon fichier archives : merci Hervé)
Et bien entendu, ca ne fonctionne pas, j'ai dû mal adapter.
Voici la macro qui ne bugge pas, mais elle ne fonctionne pas.
En fait, la macro que j'ai faite me les rajoute en haut du tableau sous la première ligne saisie (ligne 4) et EN PLUS en décalé (contenu de F en G que je laisse volontairement pour l'instant) et je vois même pas la formule de la colonne K... Mais bon... Ce que je dis est à prendre avec prudence... vu mon niveau. Je pense que le souci se situe dans la définition de DERLIGNE ou/et de row+1... et d'autres choses aussi surement.
Je crois aussi que ce fichier par rapport aux autres comporte des cellules vides en A et B qui font que ca le fait bugger... Si on met des croix par exemple en A et B là où c vide, déjà ca met les lignes en dessous... C'est déjà ca. Reste le pb du décalage vers la droite donc.
J'ai ensuite une deuxième question. J'aimerais que le bouton affecté à cette macro soit "volant", à savoir soit tjs à la fin du tableau et si je descends, descende aussi plutôt que d'être dans la barre de titres.
Et j'aimerais que lorsque je rajoute des lignes, mon curseur soit tjs en bas, que je remonte pas tout en haut du tableau.
Merci d'avance.
J'aurais bien besoin d'avoir un bouton de "rajout de lignes" (j'ai ca dans deux autres fichiers et ca marche du tonnerre) comme une ligne modèle située en fin de tableau qui contient notamment :
- une MFC dans trois cellules
- une formule dans une autre
- une liste déroulante dans une autre
- à terme un format date...
J'ai donc créé :
- une ligne modèle en fin de tableau (que j'ai définie : insertion/nom...)
- une macro (enfin pompé sur mon fichier archives : merci Hervé)
Et bien entendu, ca ne fonctionne pas, j'ai dû mal adapter.
Voici la macro qui ne bugge pas, mais elle ne fonctionne pas.
Code:
Public Sub RajoutLignes()
Dim nbligne As Long
Dim t As String
Dim derligne As Integer
Application.ScreenUpdating = False
nbligne = Application.InputBox("Nombre de lignes à insérer (maximum 20)", "Insertion ligne", 20, , , , , 1)
Select Case nbligne
Case Is > 20: t = "Maximum 20, SVP"
Case 0: Exit Sub
Case Is < 1: t = "Supérieur à 0, SVP"
End Select
If t <> "" Then
t = t & vbNewLine & vbNewLine & "Procédure arrêtée."
MsgBox t, , "Attention..."
Exit Sub
End If
derligne = Range("a2").End(xlDown).Row + 1
[COLOR=seagreen]'là j'ai mis range("a2") mais je préférerais b2 car j'ai l'habitude de mettre en B la date de la prochaine séance alors que la colonne A du ZIP ne peut se remplir qu'une fois la séance passée[/COLOR]
If derligne = 4 Then derligne = 5
[COLOR=seagreen]'ca j'ai fait ainsi car je crois que ca signifie le nombre de lignes de titres... enfin c ma déduction...[/COLOR]
Rows(derligne & ":" & derligne + nbligne - 1).Insert
Range("modele").Copy Destination:=Range("a" & derligne & ":a" & derligne + nbligne - 1)
[COLOR=seagreen]'Range("f" & derligne & ":f" & derligne + nbligne - 1).ClearContents à rajouter quand ca marchera[/COLOR]
Application.ScreenUpdating = True
End Sub
En fait, la macro que j'ai faite me les rajoute en haut du tableau sous la première ligne saisie (ligne 4) et EN PLUS en décalé (contenu de F en G que je laisse volontairement pour l'instant) et je vois même pas la formule de la colonne K... Mais bon... Ce que je dis est à prendre avec prudence... vu mon niveau. Je pense que le souci se situe dans la définition de DERLIGNE ou/et de row+1... et d'autres choses aussi surement.
Je crois aussi que ce fichier par rapport aux autres comporte des cellules vides en A et B qui font que ca le fait bugger... Si on met des croix par exemple en A et B là où c vide, déjà ca met les lignes en dessous... C'est déjà ca. Reste le pb du décalage vers la droite donc.
J'ai ensuite une deuxième question. J'aimerais que le bouton affecté à cette macro soit "volant", à savoir soit tjs à la fin du tableau et si je descends, descende aussi plutôt que d'être dans la barre de titres.
Et j'aimerais que lorsque je rajoute des lignes, mon curseur soit tjs en bas, que je remonte pas tout en haut du tableau.
Merci d'avance.
Pièces jointes
Dernière édition: