A voir également:
- Excel: creer un scenario - dupliquer lignes
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
6 réponses
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
16 mai 2008 à 17:16
16 mai 2008 à 17:16
Essaye ça, ça fonctionne chez moi:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/05/2008 par LatelyGeek
'
'
Range("A1").Select
While ActiveCell.Value <> ""
Codes = ActiveCell.Value
If Codes Like "*/*" Then
Position = 1
While Mid(Codes, Position, 1) <> ""
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = Mid(Codes, Position, 1)
Position = Position + 2
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
PS: Un scénario dans Excel, c'est pas ça du tout. Attention aux formulations, on risque de passer à côté d'un coup de main de quelqu'un qui maîtrise VB mais pas les scénarios!!!!!
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/05/2008 par LatelyGeek
'
'
Range("A1").Select
While ActiveCell.Value <> ""
Codes = ActiveCell.Value
If Codes Like "*/*" Then
Position = 1
While Mid(Codes, Position, 1) <> ""
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = Mid(Codes, Position, 1)
Position = Position + 2
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
PS: Un scénario dans Excel, c'est pas ça du tout. Attention aux formulations, on risque de passer à côté d'un coup de main de quelqu'un qui maîtrise VB mais pas les scénarios!!!!!
bonjour
mais g un ti soucis au niveau de la duplication de ligne je m'explique:
je doit importer des saisies d'un classeur à un autre; pour faire l'importation de cellule à cellule ca marche tres bien sauf il suffis d'appliquer la formule suivant ='[nomduclasseur]nomdelafeuille'!$nomdelacolonne$numérodeligne
sauf que g un tab de 3000 lignes et 13 colonnes et je ne me sent po de taper la formule 3000*13 fois.
alors si quelqu'un peu m'aider j'en serai tres reconnaissante.
Merci beaucoup d'avance
mais g un ti soucis au niveau de la duplication de ligne je m'explique:
je doit importer des saisies d'un classeur à un autre; pour faire l'importation de cellule à cellule ca marche tres bien sauf il suffis d'appliquer la formule suivant ='[nomduclasseur]nomdelafeuille'!$nomdelacolonne$numérodeligne
sauf que g un tab de 3000 lignes et 13 colonnes et je ne me sent po de taper la formule 3000*13 fois.
alors si quelqu'un peu m'aider j'en serai tres reconnaissante.
Merci beaucoup d'avance
bonjour,
et si tu te sert de l'incrementation, le petit carre au coin droit de ta cellule sa recopiera ta formule dans toutes les cellules.
et si tu te sert de l'incrementation, le petit carre au coin droit de ta cellule sa recopiera ta formule dans toutes les cellules.
merci pour ton aide rapide el metador
mais malheureusement ca ne marche pas non plus car j'utilise deux classeurs à la fois et du coup qd j'utilise le petit carré ca me recopie ce qui est marqué sur la cellule du depart
:(
mais malheureusement ca ne marche pas non plus car j'utilise deux classeurs à la fois et du coup qd j'utilise le petit carré ca me recopie ce qui est marqué sur la cellule du depart
:(
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ivan-hoe
Messages postés
433
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
17 octobre 2008
309
26 juin 2008 à 14:51
26 juin 2008 à 14:51
Supprime les $ dans les adresses de cellules !!!
19 mai 2008 à 16:20