Copier

[roro69]

Bonjour ,
voici ma question :
Je voudrais selectionner ("A8😀65") dans plusieurs feuilles copier la selection et la coller dans une nouvelles feuilles.
Si quelqu'un pouvait me donner le code vba correspondant merci.
Merci pour vos réponses

 

[jp14]

Re : Copier

Bonjour

Le plus simple pour avoir un exemple de code est d'utiliser l'enregistreur de macro en partant d'une feuile différente.

JP

 

[roro69]

Re : Copier

Bonjour jp14
J'ai reussi à enregistrer la macro pour selectionner mes cellules
dans toutes les feuilles ;les copier ; mais maintenant ou ça bloque c'est que je
ne peut pas coller les sélections dans ma nouvelle feuilles.
Si vous pouvez m'aider merci
AU REVOIR

 

[pierrejean]

Re : Copier

bonjour roro69

salut jp14

une macro a adapter quant a la feuille de reception

Sub copie()
ligne = 1
For n = 1 To Sheets.Count
If Sheets(n).Name <> "Feuil1" Then
Sheets(n).Range("A8:D65").Copy Destination:=Sheets("Feuil1").Cells(ligne, 1)
ligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
End If
Next n
End Sub

 

[roro69]

Re : Copier

Bonjour pierrejean
Merci pour ton code mais persiste un petit problème : Les données sont importées dans ma nouvelle feuille mais que celles de la dernière feuilles et la premiere ligne de ma première feuille???
Merci si vous trouvez la solution

 

[roro69]

Re : Copier

Re bonjour
.J'ai un petit element de réponse mais je voudrais ne copier que les lignes non vides si quelqu'un peut se pencher la dessus Merci d'avance.


Sub Copier()
NL = Sheets(1).Range("A8😀65").Rows.Count
Sheets.Add After:=Worksheets(Worksheets.Count)
Set la = ActiveSheet.Range("A8")
For i = 1 To 5
Sheets(i).Range("A8😀65").Copy la.Offset(NL * (i - 1), 0)
Next i
End Sub

 

[pierrejean]

Re : Copier

re roro

hormis si tu as oublié de nous signaler quelque chose ceci devrais convenir

Option Explicit
Sub test()
Dim n As Integer
Dim m As Integer
Dim ligne As Integer
Dim nomfeuille As String
ligne = 1
Sheets.Add After:=Worksheets(Worksheets.Count)
nomfeuille = ActiveSheet.Name
For n = 1 To Sheets.Count
If Sheets(n).Name <> nomfeuille Then
For m = 8 To 65
  If Sheets(n).Cells(m, 1) <> "" Then
    Sheets(n).Rows(m).Copy Destination:=Sheets(nomfeuille).Rows(ligne)
    ligne = ligne + 1
  End If
Next m
End If
Next n
End Sub

 

[roro69]

Re : Copier

Rebonjour pierrejean
Bon code mais ne marche pas ; le code que j'avais inscrit avant fonctionne mais je n'arrive pas à coller que les cellules non vide .Merci pour tout.

 

[pierrejean]

Re : Copier

re

qu'est ce qui ne fonctionne pas ???

peux-tu mettre un petit fichier exemple S.T.P

 

[roro69]

Re : Copier

Re pierre jean voici une bride de mon fichier (dans fichier original 100 feuilles !!!)
Merci de votre temps

 

[pierrejean]

Re : Copier

re Roro

le probleme residait dans le fait que la colonne A est toujours vide

je controle maintenant la colonne C et ça a l'air de fonctionner

j'ai egalement modifié la ligne de depart (7 et non 8)

si autre os ne pas hesiter a revenir

 

[roro69]

Re : Copier

re pierrejean
Un vrai chef
Merci