Rapport de message :*
 

Re: copier coller

Titre du sujet : Re: copier coller
par Guy le 12/10/2009 18:29:35

Ben voilà,

L'exemple envoyé au début porte des valeurs dans toutes les lignes, fusionnées ou non, l'exemple suivant Réglages combustionMOD est bien différent.

De plus il ne faut pas trafiquer un exemple avec la méthode pifométrique.
Par exemple pourquoi

PasAvancement = 10
  Do

    PasAvancement = PasAvancement + 3
    EstVide = (Feuil1.Cells(7, PasAvancement) = "")

  Loop Until EstVide

Alors que le pas d'avancement dans ce fichier est de quatre (4)...
De plus la colonne d'origine n'est pas la colonne 1 mais la colonne 2.
Ensuite la tentative de coller pointe vers une cellule fusionnée puisque le pas d'avancement est incorrect. Excel ne fait qu'indiquer cette erreur.

Set PlageSource = Feuil1.Range(Cells(7, PasAvancement - 3), Cells(56, PasAvancement - 1))
  PlageSource.Copy PlageSource.Offset(0, 3) ' ICI, PAFF, BOUM ET TRALALA.

Dans ce classeur il faudra appuyer la recherche de source sur autre chose que la première cellule de la plage visée. Ceci n'était pas indiqué ni ne pouvait être deviné dans le premier exemple.

Je fouille un peu avec ces nouveaux éléments sous la main.
Je réitère, c'est le classeur combustionMOD qui aurait dû être transmit en premier.

Cordialement,

Guy