Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insertion d'une ligne via un bouton

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jbt1970
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jbt1970

Guest
Bonjour à tous,
à partir d'un bouton sur mon userform je voudrai insérer une ligne dans ma table sous la case portant un nom. Peut-être vous comprendrez mieux si je met mon code:

Private Sub CommandButton14_Click()
Worksheets("Feuil2").Select

If Range("technicien").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Range("technicien").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If

End Sub

Si je met range("D6"), ça marche. mais pas si je met range("technicien").

Merci de votre aide.
 
Trier par date Trier par votes
Re : insertion d'une ligne via un bouton

salut jbt1970 et bienvenu, Le forum


essaye ça


Code: 
Private Sub CommandButton14_Click()

If Sheets("Feuil2").Range("technicien").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Sheets("Feuil2").Range("technicien").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If

End Sub
Bonne Journée
 
Vote positif 0 Vote négatif
Re : insertion d'une ligne via un bouton

j'avance un peu en passant par une autre méthode, j'arrive à retrouver ma cellule qui porte le nom "Technicien" et à faire afficher une msgbox.

Private Sub CommandButton14_Click()
Dim NumLig As Integer
Dim Cell As Range

For Each Cell In Feuil9.Range("A1:A" & Feuil9.Range("N65533").End(xlUp).Row)
NumLig = Cell.Row

If Feuil9.Cells(NumLig, 3) = "Technicien" Then
MsgBox " presque"

End If

Next Cell
End Sub

Maintenant au lieu de faire apparaitre une msgbox, je voudrai insérer une ligne.

Merci de votre aide.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
441
AlCapone
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
915
TooFatBoy
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
660
AtTheOne
F
  • Question Question
XL 2016 Vba + formule actualisation
Réponses
8
Affichages
661
Dudu2
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
678
sebastien176
S
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
2 K
Phil69970
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
788
casualexcel
C
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Résolu(e)
XL 2016 Private Sub ne fonctionne pas
Réponses
4
Affichages
671
MaNU84510
M
R
  • Résolu(e)
Microsoft 365 Création automatique de ligne
Réponses
3
Affichages
1 K
AtTheOne
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
4 K
sylvanu
P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
732
patricktoulon
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
836
guiyom
G
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…