Macro pour insérer automatiquement une ligne
Bonjour à tous
Voilà j'ai un soucis avec une macro. Déjà faut savoir que je débute sur Excel et donc créer une macro pour moi relève du domaine de l'impossible
J'aimerai pouvoir ajouter une ligne quadrillée à chaque fois que je clique sur ma macro. Le pb c'est que je ne sais pas du tout quoi écrire dans ma macro à part Sub et End Sub.
J'ai mis à votre disposition une image pour que vous puissiez voir ça de plus près
https://www.excel-pratique.com/~files/doc/Compte.JPG
Merci de votre aide
Huv.
bonjour,
Essaye ce code à placer en VBA dans un module
Sub nouvelleligne()
Dim lig As Integer
lig = Range("A65536").End(xlUp).Row
Range("A" & lig).EntireRow.Insert
End SubCela suppose que la colonne A est toujours complétée.
Amicalement
Dan
Edit :Une variante
Sub nouvelleligne()
'Macro par Dan pour huviel le 01/07/08
Dim lig As Integer
lig = Range("A65536").End(xlUp).Row + 1
With Range("A" & lig, Range("G" & lig))
.BorderAround LineStyle:=xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
End With
End SubDan
Salut Nad-Dan
Alors la première macro insère bien les lignes mais sans quadrillage et pas au bon endroit regarde => https://www.excel-pratique.com/~files/doc/TMUeDCompte.JPG
Et la deuxième macro me rajoute bien une ligne quadrillé au bon endroit mais elle ne marche qu'une fois
Mais merci de ton aide, j'avance un peu grâce à toi =)
Huv
re,
Normal qu'elle ne rajoute qu'une fois puisque tu n'as pas complété la cellue en colonne A. C'est ce que je t'ai dit dans mon commentaire.
Mets une donnée en A3 puis clique sur le bouton.
Dan
J'avais lu trop vite T_T'
En tout cas ça marche ! Merci beaucoup c'est super
Je profite de mon topic pour vous faire par d'un autre problème.
J'aimerai que lorsque je sélectionne un nombre dans mon menu déroulant feuille 1, que les infos concernant ce nombre soient affichés à coté.
J'ai mis ces deux fichiers pour vous montrez.
https://www.excel-pratique.com/~files/doc/excel1.bmp
https://www.excel-pratique.com/~files/doc/excel2.bmp
Merci de votre aide
Bonsoir,
En B1 feuille 1 :
=RECHERCHEV(A1;Feuil2!A1:D4;2)&" "&RECHERCHEV(A1;Feuil2!A1:D4;3)&" "&RECHERCHEV(A1;Feuil2!A1:D4;4)Nom "Feuil2!" à adapter
Re,
Si tu veux que ce soit un code qui fait cela, j'aimerais mieux voir ton fichier ce sera plus facile.
A te relire
Dan
Merci Sylvain TBM ça marche impec et j'ai compris la formule
Je me permet de remonter mon sujet pour éviter de refaire un topic.
J'ai une macro pour ajouter une ligne quadrillée mais là j'aimerai modifier ma macro pour ajouter une ligne quadrillé mais pour certaines colonnes.
EX: La macro devra ajouter un quadrillage à la colonne A,C,D,F,H
J'ai déjà la macro suivante
Sub nouvelleligne()
Dim lig As Integer
lig = Range("A65536").End(xlUp).Row + 1
With Range("A" & lig, Range("G" & lig))
.BorderAround LineStyle:=xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
End With
End Sub
Merci de votre aide
Re,
essaye :
Sub nouvelleligne()
Dim lig As Integer
lig = Range("A65536").End(xlUp).Row + 1
Range("A" & lig).BorderAround LineStyle:=xlContinuous
Range("C" & lig).BorderAround LineStyle:=xlContinuous
....
End SubComplète pour les autres colonnes
Amicalement
Dan
Whoa pas con, merci beaucoup
Et sinon par hasard y a moyen d'alterner l'ajout de ligne avec deux couleurs ?
ligne1 rouge
ligne2 vert
ligne3 rouge
ligne4 vert
re,
Edit :
oui mais je dois connaitre les lignes et colonnes de référence
Amicalement
Dan
Merci du conseil, cependant j'ai déjà utilisé mes 3 mise en forme condi.
Re,
effectivement c'est possible
Sache que pour une couleur tu peux aussi avec cette formule --> =mod(ligne();2). Il te suffit de sélectionner ligne et colonne puis aller dans la MFC et placer cette formule.
N'oublie pas mettre "résolu" sur ce fil si ta demande est solutionnée.
Dan
MFC ? C'est la ligne pour mettre les formules ?
Je vais tester ça et je te tiens au courant
MFC : Format/Mise en Forme Conditionnelle