Bouton excel pour opération sur un autre onglet

Bonjour,


J'ai une macro qui opère des conversions suite à des données copiées/collées :
Avant conversion:
Pièce jointe 620008

Après conversion:
Pièce jointe 620007

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub TestAppli2()   i = 2 While Cells(i, 1) <> "": i = i + 1: Wend   For l = 2 To i - 1 Cells(l, 3) = convertdat(Cells(l, 3)) Cells(l, 6) = convertdat(Cells(l, 6)) Cells(l, 7) = convertdat(Cells(l, 7)) Next Columns("F:F").Insert Shift:=xlToRight Cells(1, 6) = "Semaine" For l = 2 To i - 1 Cells(l, 6) = DatePart("ww", Cells(l, 7), vbMonday, vbFirstFourDays) Cells(l, 6).NumberFormat = "general" Next For l = 2 To i - 1 Cells(l, 4).NumberFormat = "@" Next   Range(Worksheets("Données_p_conversion").Range("M1"), Worksheets("Données_p_conversion").Range("M1").End(xlDown)).Clear Range(Worksheets("Données_p_conversion").Range("N1"), Worksheets("Données_p_conversion").Range("N1").End(xlDown)).Clear Range(Worksheets("Données_p_conversion").Range("O1"), Worksheets("Données_p_conversion").Range("O1").End(xlDown)).Clear Range(Worksheets("Données_p_conversion").Range("P1"), Worksheets("Données_p_conversion").Range("P1").End(xlDown)).Clear     End Sub   --------------------------------------- Function convertdat(dat) convertdat = DateSerial(Left(dat, 4), Mid(dat, 5, 2), Right(dat, 2)) End Function

---

Le but est de pouvoir importer les données converties avec access, seulement j'ai une erreur F13 car access considère une 13ème colonne à cause du bouton, je cherche donc à mettre mon bouton sur un onglet "Accueil" mais je ne trouve pas comment modifier ma macro pour que tout s'opère sur mon onglet "Données_p_conversion"


Merci par avance,

Bonjour,

Lignes 22-25 tu as précisé la feuille avant le range, il te suffit de faire pareil devant tous tes autres objets de type range
Pour simplifier l'écriture tu peux utiliser With

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub TestAppli2() with Worksheets("Données_p_conversion") i = 2 While .Cells(i, 1) <> "": i = i + 1: Wend   For l = 2 To i - 1 .Cells(l, 3) = convertdat(.Cells(l, 3)) '...   end with end sub

---

bonjour, si j'ai bien compris ta demande, crées un onglet accueil et déplace ton bouton dans cet onglet
du coup ta feuil "Données_p_conversion" est une page vierge

remplace ton code VBA par celui ci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub TestAppli2()   sheets ("Données_p_conversion").select   with Worksheets("Données_p_conversion") i = 2 While .Cells(i, 1) <> "": i = i + 1: Wend   For l = 2 To i - 1 .Cells(l, 3) = convertdat(.Cells(l, 3)) '...   end with end sub

---

il serait bien d'avoir un fichier exemple (enlève les données confidentiel si il y a, on comprendra mieux ta demande ou le pb)

halaster08 Merci pour l'info des types Range, ça m'a permis de faire une recherche alternative :Le With seul n'opèrait rien, en parallèle j'ai pu trouvé avec worksheets().activate puis ActiveWorksheet sur chaque ligne le nécessitant, mais pas hyper lisible

spyderpaint c'est parfait ça réponds comme je l'attendais, merci beaucoup ! Il fallait bien la ligne .select pour que le with fonctionne.