Macro insertion ligne + insérer caractére dans des cellules insérées

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 !

loulou14

XLDnaute Nouveau
Bonjour à tous

Je dispose d'une macro me permettant d'insérer une ligne (ou plusieurs lignes en fonction du nombre de lignes sélectionnées) sous la sélection. Je recopie également les formules de la ligne du dessus dans les lignes insérées.
Cela fonctionne bien.

J'aimerais maintenant incrémenter des valeurs constantes dans des cellules déterminées des lignes insérées...et là je coince.
Si j'insére X nouvelles lignes, je souhaite que s'inscrive "-" dans toutes les cellules de la colonne AB nouvellement créés.

Voici mon code :

Sub InsererLignesCopierFormules2()
'Macro insère ligne(s) en-dessous de la (ou des) cellule(s) choisie(s) et copie les formules uniquement

ActiveSheet.Unprotect
If ActiveSheet.AutoFilterMode = False Then
Else: MsgBox ("Veuillez désactiver le filtre automatique en ligne 4"): GoTo 2
End If
On Error Resume Next

With Selection
.EntireRow.Copy
.EntireRow.Insert xlShiftDown
.EntireRow.SpecialCells(xlConstants).ClearContents
.EntireRow.SpecialCells (xlCellTypeSameFormatConditions)

End With
Application.CutCopyMode = False
Application.ScreenUpdating = True

2 End Sub


Merci d'avance pour votre aide
Cordialement
 
Re : Macro insertion ligne + insérer caractére dans des cellules insérées

Merci DoubleZero

Cela fonctionne à condition d'avoir la selection dans la colonne A. Mon besoin est d'insérer ce caractére en colonne AB quelque soit la cellule de la ligne sélectionnée au déclenchement de la macro.
Je ne sais pas si je suis plus clair ?

Cordialement
 
Re : Macro insertion ligne + insérer caractére dans des cellules insérées

Bonjour DoubleZero

Cel ame paraît compliqué de répondre favorablement à ta demande car le fichier de travail est tout à fait confidentiel.

Si je me reporte au fichier que tu as joins, j'aimerais me placer sur n'importe quelle colonne de la (des) ligne(s) sélectionnée(s), déclencher ma macro (insertion lignes en recopiant les formules) ET pour chaque ligne créée, insérer une caractére dans les (nouvelles) cellules de la colonne AB.

J'espére mieux me faire comprendre.

Cordialement
 
Re : Macro insertion ligne + insérer caractére dans des cellules insérées

Merci DoubleZero

C'est résolu. En fait, il faut que la colonne de départ soit "non vide"...ce qui n'était pas le cas dans mon tableau. Après ce petit ajustement cela fonction très bien et répond parfaitement à mon besoin.

Merci beaucoup...sujet résolu
 
- 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

Discussions similaires

Réponses
7
Affichages
161
Réponses
3
Affichages
955
Retour