Il me faudrait un code VBA, qui me demande « qu’elle colonne je désire copier » et suivant la lettre qui je lui demande, il me copie les cellules de la colonne désiré dans toutes les feuilles de mon classeur ((qui vont de 0-9 jusqu’à Z), sauf Divers, NouvelleEntree)) dans une nouvelle feuille nommé « MaSelection »
petite contrainte je veux qu’il me copie la cellule brute sans la mise en forme des cellules et sans liens hypertexte car ce sont des liens si c’est possibles.
Je ne sais pas si j’ai bien compris.
PS: Vous entrer une lettre et vous valider par Ok.
La commande de se trouve sur la première feuille. (en orange)
Cordialement
Will-Fread
Bonsoir,
C’est exactement ça.
Il y a juste un petit truc on peux enlever les bordures et le styles de la cellules quand il copie les cellules sinon c’est pas grave
Sub copier()
Dim a As String, d As String
Dim b As Integer
a = Application.InputBox("Entrer une lettre")
Application.ScreenUpdating = False
For b = 3 To Sheets.Count - 1
Sheets(b).Activate
d = a & 3
Range(Range(d), Range(a & Rows.Count).End(xlUp)).Copy
With Sheets("MaSelection")
.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
.Range("b:b").EntireColumn.AutoFit
End With
Next
Application.CutCopyMode = False
Sheets("MaSelection").Activate
End Sub
J’aurais une demande sur ce même fichier, je voudrais pas embêter @FFO.
j’ai dans mon classeur un code VBA « dispatche » qui fais super bien de taf que @FFO m’as fais, je voudrais juste quand il dispatche les lignes, qu’a la fin di traitement il me fasse un tri automatique en ordre croisant de chaque onglet, est-ce possible ?
Aussi je ne veux pas qu’il me tri les onglets « Divers », « NouvelleEntree »
Merci infiniment pour ce que vous faites en tout cela me fais gagner énormément de temps.
