Bonjour,
Je souhaite compiler différents onglets Excel ayant tous exactement la même structure dans un seul onglet.
J'ai récupéré cette petite formule VBA qui répond à mon besoin...enfin en partie...la formule me colle les cellule avec les formules alors que je souhaiterais les coller en valeur brute.
Voici le code VBA que j'ai actuellement (ci-dessous)
Comment pourrais-je le modifier pour coller les cellules en valeur? Je pense qu'il faudrait ajouter un "PasteSpecial Paste:=xlPasteValues" quelque part mais je ne sais pas où
Sub Compil()
Dim Shc As Worksheet, Shs1 As Worksheet, Shs2 As Worksheet, Shs3 As Worksheet
Set Shc = Sheets("feuille cible")
Set Shs1 = Sheets("onglet x")
Set Shs2 = Sheets("onglet y")
Set Shs3 = Sheets("onglet z")
Shs1.Range("A2:N" & Shs2.Range("A65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
Shs2.Range("A2:N" & Shs2.Range("A65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
Shs3.Range("A2:N" & Shs3.Range("A65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
End Sub
Un grand merci par avance à quiconque pourra m'aider