[ Résolu ] Un transfert de plages vers d'autres plages impossible..????

Guido

XLDnaute Accro
Bonjours le Forum

Je reviens vers Vous Tous,

J'aimerais transférer le contenu des plages dans la pages suivantes et dans les plages

biens définies...

Voir le petit fichier

Merci

Guido
 

Pièces jointes

  • TRANSFERER_LES_BASES.xls
    348 KB · Affichages: 40

Guido

XLDnaute Accro
Re

Le fichier plus haut n'avais pas d'exemple a l'intérieur.ohhhhhhhhhhh zut

Je remédie en faisant afficher le résultat désiré.. dans le fichier ici..

J'aimerais faire s'afficher les plages de la page PRONO DE BASE vers la page PRONO NET..

Merci

Guido
 

Pièces jointes

  • TRANSFERER_LES_BASES.xls
    348.5 KB · Affichages: 45

ChTi160

XLDnaute Barbatruc
Bonjour Guido​
Le Fil (JBARBE) , Le Forum
Une autre approche (perfectible) Lol
j'ai considéré que les Lignes ex : Ligne Une de la feuille "PRONO_NET"
contenaient les références
Colonne : 1 : C1 - Colonne : 2 :"Course: R.1-C.1"
Colonne : 14 : C1 - Colonne : 15 :"Course: R.2-C.1"
et ainsi de suite pour les autres colonnes et Lignes
Nous dire , quelle est la structure de la feuille "PRONO_NET"

j'ai mis la fonction dans la procédure :
VB:
Private Sub Worksheet_Activate()
Initialise_Reunions
End Sub
Bonne fin de journée
Amicalement
jean marie
 

Pièces jointes

  • TRANSFERER_LES_BASES Chti160-1.xlsm
    247.4 KB · Affichages: 27
Dernière édition:

ChTi160

XLDnaute Barbatruc
Re
j'ai rajouté un test !
pour vérifier si la feuille contient des Données cela en fonction de la Ligne de fin "DerLgn"

If DerLgn = 1 Then MsgBox "Attention pas de Donnée Enregistrée !": Exit Sub

VB:
With Ws_Source
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
If DerLgn = 1 Then MsgBox "Attention pas de Donnée enregistrée": Exit Sub

Dans l'attente
Bonne fin de Journée
Amicalement
Jean marie
 

Guido

XLDnaute Accro
Bonjour JBARBE,ChTi160,le Forum.

Merci pour vos proposition de possibilités avec ce fichier. J'ai testé, cela c'est OK..

Dans un précèdent fils...je vais Vous mettre le nom du fil..

JBARBE avait mis une macro ,qui pourrais finalisé ce fichier ,je vais voir si je peut faire moi même

faire le rajout ou si je demande votre aide pour adapter cette macro..

A de suite

Merci encore

Guido
 

Guido

XLDnaute Accro
Bonjour JBARBE,ChTi160,le Forum.

Merci pour vos proposition de possibilités avec ce fichier. J'ai testé, cela c'est OK..

Dans un précèdent fils...je vais Vous mettre le nom du fil..

JBARBE avait mis une macro ,qui pourrais finalisé ce fichier ,je vais voir si je peut faire moi même

faire le rajout ou si je demande votre aide pour adapter cette macro..

A de suite

Merci encore

Guido

Re

Voici le fichier et la macro qui devrais être inséré dans la fichier du post 5 et 6

Merci de votre aide

Guido
 

Pièces jointes

  • Guido_Classement avec doublons ou sans...A.xls
    238.5 KB · Affichages: 33
  • Macro qui defini le classement final de ma demande...xls
    14.5 KB · Affichages: 27

ChTi160

XLDnaute Barbatruc
Re Guido
Arff content pour toi ,mais moi je tente de répondre aux questions ,mais rares sont ceux qui répondent aux mienne voir : #6
Nous dire , quelle est la structure de la feuille "PRONO_NET"
je regarde tes deux fichiers , mais pas trop compris la demande ????
je vais donc essayer de deviner Lol !
Bonne fin de journée
Amicalement
Jean marie
 

ChTi160

XLDnaute Barbatruc
Re
ben comme je le prévoyais , j'ai pas compris lOl
j'ai ouvert le Fichier "Guido_Classement avec doublons"
j'ai vu qu'il y avait deux feuilles avec des Données et d'autres sans rien ????
une macro qui sélectionne la feuille :
Sheets("PRONO NET").Select
mais après plus rien compris ?
puis j'ai ouvert le Fichier "Macro qui defini le Classement final"
et j'ai retrouvé en feuille "Feuil1" le teste de la macro Sub test()
et plein de feuilles sans rien(donc inutiles)
Donc pas plus compris ????? , mais "JBARBE" a surement compris Lol
dans l'attente !
Bonne fin de Journée
Amicalement
Jean marie
 

JBARBE

XLDnaute Barbatruc
Bonjour à tous, Guido, Chti160,
Chti160 à dit :
j'ai considéré que les Lignes ex : Ligne Une de la feuille "PRONO_NET"
contenaient les références !

Désolé J'étais fatigué et il était 4h du matin !
Nécessaire fait !
Bonne journée !
 

Pièces jointes

  • TRANSFERER_LES_BASES_A.xls
    529 KB · Affichages: 31

Guido

XLDnaute Accro
Re

Pour Jean Marie petit clin d'œil..

Oui ,JBARBE est un pro pour les macros, et formules qui concerne le turf.., et d'autres aussi.

Merci a Lui. Sans oublié Job75,Paritec qui m'ont énormément aidé dans le passé...et d'autres qui se

reconnaitrons qui m'ont donné beaucoup de solution .Merci,Messieurs

Donc ,pour en revenir pour la dernière finalisation.vu que pour le transfert tout est OK..

La solution se trouve dans le fil Classement avec ou sans doublons

a plus

Merci

Guido
 

ChTi160

XLDnaute Barbatruc
Re
Salut JBARBE ce soir Dodo tot lol
je parlais dans mon dernier post de cette phrase de "Guido"
Dans un précèdent fils...je vais Vous mettre le nom du fil..
JBARBE avait mis une macro ,qui pourrais finalisé ce fichier ,je vais voir si je peut faire moi même
faire le rajout ou si je demande votre aide pour adapter cette macro..
Bonne fin de soirée
Amicalement
Jean marie
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal