Microsoft 365 Copier une ligne ou une autre d'une cellule dans une autre cellule

job75

XLDnaute Barbatruc

• 14 Avril 2021

• #2

Bonsoir Lionel,

Il faudrait préciser ce que tu veux copier, où coller, en faisant quoi.

De toute façon pour séparer les lignes d'une cellule Split(cel, vbLf) est incontournable !

Bonne nuit.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 14 Avril 2021

• #3

Bsr Gérard,

Dans le fichier joint ma cellule les lignes sont déjà les unes en dessous des autres..

Ce je voudrais pouvoir faire c'est copier l'une des lignes, selon mon besoin dans une autre cellule.
C'est peut-être pas clair lol.


lionel,

 

Dernière édition: 14 Avril 2021

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 14 Avril 2021

• #4

Bonsoir

Oui, mais la question est "Quelle partie veux -tu copier : la 1ère ligne, la seconde" ? Si le choix doit être précis (et pas fait au hasard), il faut bien un critère pour sélectionner cette ligne et pas une autre... Le n° de cette ligne, ou un mot clé, par exemple...

@ plus

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 14 Avril 2021

• #5

Bsr Cisco,
ça peut-être n'importe laquelle selon le besoin.
Mais est-ce possible ? ... Pas certain du tout
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 14 Avril 2021

• #6

Effectivement, peut-être en leur affectant un n° ?
Mais comment leur affecter un n° ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 14 Avril 2021

• #7

Allez, je vais dormir pour ce soir.
Bonne nuit à toutes et à tous

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 15 Avril 2021

• #8

Bonjour Lionel, le fil,

j'espère que tu as bien dormi. ton fichier en retour.

tes 2 premières feuilles sont inchangées ; j'ai ajouté une feuille "Comm" ; non, c'est pas "Communications", mais "Commentaire" ; va sur "Comm" ; tu peux voir qu'en A2, j'ai déjà saisi "L2" ; c'est pour le cas où plus tard, tu voudras un des commentaires d'une autre cellule de la feuille "Appels" ; la cellule active est B2, et elle est vide ; C2 aussi est vide.

en B2, saisis 1 ➯ en C2 : 1ère ligne de commentaire de Appels!L2 :

"14.04.21 16:58:38 : Au Forum -"​

en B2, saisis 2 ➯ en C2 : 2ème ligne de commentaire de Appels!L2 :

"14.04.21 16:58:23 : Bonjour -"

en B2, saisis 3 ➯ en C2 : 3ème ligne de commentaire de Appels!L2 :

"14.04.21 16:58:05 : à vous toutes et tous -"

en B2, note que si tu saisis par exemple 0 ou 4, C2 est vide.

---

code VBA de ma fonction personnalisée CelComment() :

​

VB:

Function CelComment(adr$, k As Byte) As String
  On Error GoTo Fin
  Dim ca, i As Byte
  ca = Split(Worksheets("Appels").Range(adr), vbLf)
  For i = 0 To UBound(ca)
    If i = k - 1 Then CelComment = RTrim$(ca(i)): Exit Function
  Next i
Fin: 'erreur si la cellule spécifiée est incorrecte
End Function

formule en C2 : =SI(OU(A2="";B2="");"";CelComment(A2;B2))

---

bonus :

VB:

Sub ZoomAppels()
  Application.ScreenUpdating = 0: [A1].Resize(, 14).Select
  ActiveWindow.Zoom = True 'ActiveWindow.Zoom = 114
  [A1].Select
End Sub

cette sub est dans le module codes, juste au-dessus de la fonction CelComment().​

code VBA du module ThisWorkbook :

VB:

Private Sub Workbook_Open()
  Worksheets("Appels").Select: ZoomAppels
End Sub

code VBA du module de Feuil2 :

VB:

Private Sub Worksheet_Activate()
  ZoomAppels
End Sub

---

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

 

Pièces jointes

• test.xlsm

  24.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 15 Avril 2021

• #9

Bonjour Soan, à toutes et à tous,
Je vous souhaite une belle journée

@ Soan : un grand merci à toi, ça fonctionne très bien
Je vais mieux tester dans la journée et je reviendrai te dire.
Merci pour le bonus
Bonne journée,
lionel

 

Dernière édition: 15 Avril 2021

Vote positif 0 Vote négatif