Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Obliger à coller sur ligne prédéterminéé

2 réponses
Avatar
Denys
Bonjour =E0 tous,

J'ai une demande un peu particuli=E8re =E0 vous soumettre.

L'usager doit copier (select all-------copy) des informations sur une
page d'une base de donn=E9es et coller ces informations sur une feuille
Excel.

Bien s=FBr, je dois manipuler ensuite ces infos afin que le r=E9sultat aie
de l'allure, sauf que je dois m'assurer que chaque info soit =E0 la
bonne place.

C'est pourquoi, je voudrais obliger l'usager =E0 coller (Paste
Special-------Unicode Text) sur des lignes bien pr=E9cises, =E0 savoir
ligne 1, 75, 150, 225, 300, etc....

De cette fa=E7on, mon travail s'en trouverait tr=E8s simplifi=E9..

Savez-vous si c'est possible?

Merci pour votre temps...

Denys

2 réponses

Avatar
MichDenis
Pour recopier n'importe quelle plage continue de cellules
dans une feuille prédéterminée ...

'---------------------------------
Sub test()
Dim Rg As Range, X As Long, A As Long, NbLignes As Long
If TypeName(Selection) = "Range" Then
If Selection.Areas.Count > 1 Then
MsgBox "la sélection doit repréenter une plage continue."
Exit Sub
End If
Set Rg = Selection
NbLignes = Rg.Rows.Count
With Worksheets("Feuil2") ' à déterminer
For A = 1 To NbLignes
If A = 1 Then
Rg.Rows(A).Copy .Range("A1")
Else
Rg.Rows(A).Copy .Range("A1").Offset(X)
X = X + 1
End If
X = X + 74
Next
End With
End If
End Sub
'---------------------------------



"Denys" a écrit dans le message de news:

Bonjour à tous,

J'ai une demande un peu particulière à vous soumettre.

L'usager doit copier (select all-------copy) des informations sur une
page d'une base de données et coller ces informations sur une feuille
Excel.

Bien sûr, je dois manipuler ensuite ces infos afin que le résultat aie
de l'allure, sauf que je dois m'assurer que chaque info soit à la
bonne place.

C'est pourquoi, je voudrais obliger l'usager à coller (Paste
Special-------Unicode Text) sur des lignes bien précises, à savoir
ligne 1, 75, 150, 225, 300, etc....

De cette façon, mon travail s'en trouverait très simplifié..

Savez-vous si c'est possible?

Merci pour votre temps...

Denys
Avatar
Denys
Bonjour Denis,

Merci infiniment, cela fonctionne à merveille (comme d'habitude!!)

En passant, sais-tu que tu m'aides sur ce forum depuis plus de 5 ans
maintenant !!!
Je t'en dois du temps !!!!

Bonne journée

Denys


On Mar 6, 9:49 am, "MichDenis" wrote:
Pour recopier n'importe quelle plage continue de cellules
dans une feuille prédéterminée ...

'---------------------------------
Sub test()
Dim Rg As Range, X As Long, A As Long, NbLignes As Long
If TypeName(Selection) = "Range" Then
If Selection.Areas.Count > 1 Then
MsgBox "la sélection doit repréenter une plage continue."
Exit Sub
End If
Set Rg = Selection
NbLignes = Rg.Rows.Count
With Worksheets("Feuil2") ' à déterminer
For A = 1 To NbLignes
If A = 1 Then
Rg.Rows(A).Copy .Range("A1")
Else
Rg.Rows(A).Copy .Range("A1").Offset(X)
X = X + 1
End If
X = X + 74
Next
End With
End If
End Sub
'---------------------------------

"Denys" a écrit dans le message de news:

Bonjour à tous,

J'ai une demande un peu particulière à vous soumettre.

L'usager doit copier (select all-------copy) des informations sur une
page d'une base de données et coller ces informations sur une feuille
Excel.

Bien sûr, je dois manipuler ensuite ces infos afin que le résultat aie
de l'allure, sauf que je dois m'assurer que chaque info soit à la
bonne place.

C'est pourquoi, je voudrais obliger l'usager à coller (Paste
Special-------Unicode Text) sur des lignes bien précises, à savoir
ligne 1, 75, 150, 225, 300, etc....

De cette façon, mon travail s'en trouverait très simplifié..

Savez-vous si c'est possible?

Merci pour votre temps...

Denys