Copier coller valeurs uniquement

Salut chers tous

Je voudrais une petite macro que je voudrais mettre sur ma feuille 1 qui va copier coller les valeurs de la plage ("E4:E18") dans la plage ("B4:B18") de chacune des feuilles a,g,o,u .(Voir fichier joint)

Merci

Bonjour,

copier les valeurs de la plage ("E4:E18") de quel feuille ?

Dans chacune des feuilles "a" , "g", "o","u" copier ("E4:E18") dans la plage ("B4:B18")

je crois qu'ceci devrait aller :

la solution d'Isabelle de travailler avec des groupes de feuilles est mieux que la mienne !

dhany

re,

à tester,

Sub test()
sht = Array("a", "g", "o", "u")
For i = LBound(sht) To UBound(sht)
 Sheets(sht(i)).Range("B4:B18") = Sheets(sht(i)).Range("E4:E18").Value
Next
End Sub

une autre possibilité serait de faire la boucle sur toutes les feuilles et vérifier si le nom est différent de "Fin" ou "Feuil1"

ok Merci mais sht doit être déclaré en tant que quoi?

Re,

@dnany,

Merci,

mais.... arrête de faire du pouce c'est dangereux,

donne moi des fleurs à la place

@KTM

sht est variant

Dim sht

mais si tu fais la boucle sur chaque feuille,

Dim sht As Worksheet
For Each sht in Worksheets

next

@Isabelle :

Merci beaucoup à vous et a+

merci pour ce retour et bonne continuation, @+ isabelle

ps/ s.v.p. voir les messages sur la page 2

coucou Isabelle,

tu a écrit :

(un clic sur le bouton V vert)

j'crois bien qu'depuis la refonte du site Excel-Pratique, c'est plus une coche verte mais une coche noire :

et cette coche est peut-être dans un grand carré, comme pour ces trois-là :

dhany

@dhany,

c'est possible, je n'ai jamais initié de message...

@KTM

si tu répond à ce message,

pourrais-tu faire une capture d'écran de ton message (en mode édition) et transmettre cette image dans ta réponse,

milles merci!

Bonjour,

je reprend votre message sur la bouche dans plusieurs feuilles.

moi çà marche pas, il va pas dans les feuilles avec:

Sub test()
    Dim sht As Worksheet
    Dim cpt As Integer
    cpt = 1
'sht = Array("Société x", "société Y")

   For Each sht In Worksheets
                'Sheets(sht(i)).Range("A1") = "1"
                Range("A" & cpt) = "1"
                cpt = cpt + 1
            Next sht
End Sub

a+

fronck

comme çà çà fonctionne.

Sub MiseAjour()

Dim cpt As Integer
Dim derl As Integer
Dim ln As Integer
Dim sh, i As Integer

        If Sheets("Macro").Range("X22") = "" Then
        cpt = 22
        End If

    For Each sh In Array("Société x", "société Y")

                        derl = Worksheets(sh).Range("X1").End(xlDown).Row
                                For ln = 2 To derl
                                    If Worksheets(sh).Range("X" & ln) = "KO" Then
                                        'copier
                                        Worksheets(sh).Range("A" & ln & ":X" & ln).Copy
                                        'coller
                                        Sheets("Macro").Select
                                        Range("A" & cpt).Select
                                        ActiveSheet.Paste
                                        cpt = cpt + 1
                                    End If
                                Next ln
    Next sh

End Sub

merci

de rien