Discussion :

[CalatheaWF]

Bonjour,


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


Après conversion:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[spyderpaint]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[CalatheaWF]

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.