elemal
Messages postés7Date d'inscriptionlundi 14 septembre 2009StatutMembreDernière intervention18 septembre 2009
-
15 sept. 2009 à 14:07
Calade
Messages postés1207Date d'inscriptiondimanche 20 avril 2003StatutMembreDernière intervention 4 juin 2016
-
15 sept. 2009 à 15:17
Salut,
j'ai effectué un morceaux de programme pour pouvoir créer une nouvelle feuille d'un classeur suite à un appui bouton en incrémentant à chaque fois le nom de la feuille.
Il me mets des erreurs, étant débutante, je n'arrive pas à les trouver.
voici le codage:
Public Sub CREER_Click()
Dim Cel As Range
Dim R As Range
Dim plage As Range
Dim feuille, ident As String
Dim numero As Integer
Dim numstring As String
Dim y As Byte
feuille = "SB"
If numero = 99 Then
numero = 1
ident = feuille & "01"
Else
If numero <= 99 Then
numero = numero + 1
numstring = CStr(numéro)
ident = feuille & numstring
End If
End If
'Copier les cellules et les coller sur l'onglet SB de la macro
y = numero + 26
Set R = Sheets(y).Range("$A$8")
Set plage = Application.Sheets(26).Range("=$A$64:$P$113")
For Each Cel In Application.Sheets(26).Range("=$A$64:$P$113")
Cel.EntireRow.Copy R
Set R = R.Offset(1)
Next
MsgBox "Création éxécuter avec succès"
elemal
Messages postés7Date d'inscriptionlundi 14 septembre 2009StatutMembreDernière intervention18 septembre 2009 15 sept. 2009 à 15:11
Bonjour,
J'ai effectué quelque modification, j'arrive maintenant à créer l'onglet mais il n'est pas renommer. Le copier coller de mes cellules ne fonctionnement. Mes boucles ne fonctionnement pas correctement!
Les erreurs sont écrit en rouges
Public Sub CREER_Click()
Dim Cel As Range
Dim R As Range
Dim plage As Range
Dim feuille As String
Dim ident As String
Dim numero As Integer
Dim numstring As String
Dim y As Byte, i As Byte
feuille = "SB"
If numero = 99 Then
numero = 1
ident = feuille & "01"
Else
If numero <= 99 Then
numero = numero + 1
numstring = CStr(numero)
ident = "SB" & numstring
End If
End If
y = numero + 32
For i = 10 To Sheets.Count
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ident = ActiveSheet.Name
Next i
Set R = Sheets(y).Range("A8")
Set plage = Application.Sheets(26).Range("A64:A113")
For Each Cel In Application.Sheets(26).Range("A64:A113")
Cel.EntireRow.Copy R
Set R = R.Offset(6)
Next
MsgBox "Création éxécuter avec succès"