Macro copier coller a la suite

Résolu/Fermé
mickysor - 7 avril 2011 à 15:55
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 7 avril 2011 à 20:58
Bonjour,

j'ai une macro comme ceci:

Sub FD()
'
' FD Macro
' Macro enregistr?e le 07/04/2011 par sor
'

'
Range("A59:A76").Select
Range("A76").Activate
Selection.Copy
Sheets("FD").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Reponse Export").Select
ActiveWindow.SmallScroll Down:=-36
End Sub

cette ligne de code:
Range("A65536").End(xlUp).Offset(1, 0).Select
me permet d'aller à la dernière cellule puis de rajouter le contenu des cellules entre A59:A76.
ce que je ne comprends pas c'est que je sélectionne sur la même feuille un tableau que je recopies avec cette macro alors les cellules qui sont vides il ne les prends pas en compte,tandis que je sélectionne un autre tableau et je le recopies avec une autre macro du même type la par contre il me prends en compte les cellules vides alors que je ne veux pas!
c'est pas évident a vous expliquer.
je vous ai envoyé en pièce jointe un tableau excel.
http://www.cijoint.fr/cjlink.php?file=cj201104/cijeTcChIZ.xls
dans ce tableau vous avez le bouton "Copie 1" (vous cliquez une fois puis ensuite une deuxième fois dessus)
ensuite vous allez sur l'onglet "FD" pour regarder les résultats de ma macro
Maintenant vous faites la même chose mais avec le bouton "Copie 2"
Et vous verrez que le résultat est totalement différent alors que j'utilises le même type de macro!
A voir également:

7 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
7 avril 2011 à 16:18
Bonjour,

On ne le répètera jamais assez : Il ne faut pas fusionner les cellules
0
Fabrice je ne vois pas ta réponse sur le forum!! désolé je suis pas un pro du forum
0
en fait j'ai compris il me recopie les formules vides mais comment faire pour qu'il ne tienne pas compte les formules vides!
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
7 avril 2011 à 18:42
Ne pas fusionner les cellules !
0
les cellules a copier de la colonne d ne sont pas fusionnées.mais lorsque j'utilise la macro j'ai remarqué qu'il me copie également les cellules vides qui contiennent une formule.mais je voudrais pas qu'il me copie ces cellules vides! que les cellules avec valeur! ca ne marche toujours pas!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
7 avril 2011 à 19:19
Re,

Essaie cette macro (à la place de copie2) :
Sub copie2()
Dim Cell1 As Range
Dim Cell2 As Range
Dim Cell3 As Range
  
  Set Cell1 = Range("D22")
  Set Cell2 = Columns("D:D").Find("*", , xlValues, , , xlPrevious)
  Set Cell3 = Worksheets("FD").Columns("C:C").Find("*", , xlValues, , , xlPrevious).Offset(1)
  Range(Cell1, Cell2).Copy
  Cell3.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  Application.CutCopyMode = False

End Sub
0
Génial cette dernière formule marche parfaitement avec les formules!
merci fabrice!
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
7 avril 2011 à 20:58
De rien, au plaisir de te relire sur le forum
0