Bien qu'ayant parcouru le forum de lon en large je n'ai pas trouvé de réponse à ma question
Voila mon probleme :
J'ai une colonne contenant une liste d'élements comme ceci
COLONNE A
L1 PREPARATIONS
L2 Puits
L3 Fouilles
L4 AMENAGEMENTS
L5 Mouvement de terre
L6 Nivellement
Tout ceci sans espace.
Je cherche un code qui me permettrait d'inserer une ligne au dessous d'un titre ( Lettres capitales).
Lorsque mon code detecte le titre(combobox1) il doit inserer une ligne dans laquelle il marquera le contenu de la listbox1
Voila mon code
For ligne = 2 To 500
If Sheets("p").Cells(ligne, 1) = ComboBox1 Then
ActiveCell.EntireRow.Insert
Cells(ligne, 1) = ListBox1
Exit For
End If
Next ligne
Je pense que ceci est tout bete mais je n'y arrive pas !
En esperant avoir été assez clair !
Merci par avance de votre aide!
Merci Pierrejean !
Helas cela ne correspond pas à ce que je recherchais j'ai du mal m'exprimé
Je vais donc continuer à me creuser la tete !
Je voudrais juste le code pour inserer une ligne sous la cellule active.Cette nouvelle ligne doit etre vide!
Ce code me serait d'une grand aide déjà !
Dim ligne As Integer
For ligne = 2 To 500
If Sheets(1).Cells(ligne, 1) = Combobox1 Then
Sheets(1).Cells(ligne + 1, 1).Activate
Selection.Insert 'ActiveCell.EntireRow.Insert
Cells(ligne + 1, 1) = listbox1
Exit For
End If
Next ligne
Merci à vous pour votre aide !
Je ne comprend pas pourquoi le code fonctionne mal...
Je vais essayer autre chose et si je continue a bloquer je vous enverai le fichier !
A+!
Bon j'ai presque réussi mais je bloque encore sur un probleme!
En effet en utilisant ton code Pierrejean , la ligne s'insere mais elle supprime la ligne en dessous !Pourrais tu remedier a cela?
Merci encore je sais que je suis un peu embetant !
Effectivement
Le probleme serait reglé depuis belle lurette si tu avais pris la peine de proposer un fichier exemple avec une petite explication claire de ce que tu souhaites
Dans cette attente .......