Margaux91
Nouveau membre
Bonjour,
Je suis débutante en VBA et aurai GRAND besoin de votre aide.
Je sors d'un logiciel un état de mes stocks, et dans cette état, les N° de référence Clients et Produits sont inscrits dans la même colonne A.
Les référence Clients sont indiquées en gras.
J'aimerai sortir ses références clients de la colonne 1 pour les coller dans la colonne B, sur la même ligne que celle où elles apparaissent à la base (elles sont séparées les unes des autres par les références des produits commandés, ce nombre de produits varie).
De plus, ces références clients doivent aussi être copier dans la colonne B et la ligne en-dessous de celle ou elles apparaissent.
Voici le code utilisé, que j'ai en partie trouvé sur internet et adapté à ma feuille :
Le copier coller fonctionne bien, mais lorsque les références sont copiées, le nombre de ligne qui devrait les séparé les unes des autres n'est pas respecté.
Y a-t-il un moyen sur excel de copier coller une sélection de cellule séparé en respectant leur disposition ligne par ligne ?
J'espère que j'ai été assez claire, merci à ceux qui ont lu ce message jusqu'au bout et merci d'avance pour vos réponse !!!
Margaux
Je suis débutante en VBA et aurai GRAND besoin de votre aide.
Je sors d'un logiciel un état de mes stocks, et dans cette état, les N° de référence Clients et Produits sont inscrits dans la même colonne A.
Les référence Clients sont indiquées en gras.
J'aimerai sortir ses références clients de la colonne 1 pour les coller dans la colonne B, sur la même ligne que celle où elles apparaissent à la base (elles sont séparées les unes des autres par les références des produits commandés, ce nombre de produits varie).
De plus, ces références clients doivent aussi être copier dans la colonne B et la ligne en-dessous de celle ou elles apparaissent.
Voici le code utilisé, que j'ai en partie trouvé sur internet et adapté à ma feuille :
Code:
Sub select_cellule_gras_ColonneA()
[COLOR=Green] 'adapté de: macro originale: SelectByValue
'auteur: Jacob Hilderbrand[/COLOR]
Dim Plg As Range
Dim Plg1 As Range
Dim Plg_OK As Range
Dim Cell As Object
Set Plg1 = ActiveSheet.Range("A1:A24566")
For Each Cell In Plg1
If Cell.Font.Bold = True Then
If Plg_OK Is Nothing Then
Set Plg_OK = Range(Cell.Address)
Else
Set Plg_OK = Union(Plg_OK, Range(Cell.Address))
End If
End If
Next
Plg_OK.Select
Selection.Copy Destination:=ActiveCell.Offset(0, 1)
Selection.Copy Destination:=ActiveCell.Offset(1, 1)
Plg_OK.Clear
End Sub
Le copier coller fonctionne bien, mais lorsque les références sont copiées, le nombre de ligne qui devrait les séparé les unes des autres n'est pas respecté.
Y a-t-il un moyen sur excel de copier coller une sélection de cellule séparé en respectant leur disposition ligne par ligne ?
J'espère que j'ai été assez claire, merci à ceux qui ont lu ce message jusqu'au bout et merci d'avance pour vos réponse !!!
Margaux