Création d'une base par copier coller en macro vba avec une sélection multiple

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

Bonsoir a tous
Un essai vite fait.

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

Bonjour et surtout merci de m'aider

j'ai installer la macro sur mon fichier et lors de l'execussion elle me dit
" erreur d'exécution '13':
Incompatibilité de type "

voila la macro

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

Bonjour
Chez moi cela fonctionne bien (Excel 2007).
A+

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

C'est bon merci j'ai trouvé il y avait dans mes feuilles une cellule avec "#erreur" qui bloquait la macro.
pour moi une grosse étape d'accomplis.

je peux maintenant rallonger la macro avec de la misse en forme et du travail de traitement.
Merci beaucoup

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

Bonjour Me revoila avec ma demande d'aide, Merci à GI-GI pour son aide précedente

toujours la même demande mais j'ai avancé.
j'ai ajouter à la macro de Gi-GI un nettoyage de feuille de base et un copier coller d’entêté de colonne pour pouvoir enchainer par la suite sur la réalisation d'un tableau croisé dynamique.

le soucis de la macro creer est qu'il me copie deux fois les mêmes lignes.
je vous mets la macro en dessous si quelqu'un veux bien regarder ou ce trouve le problème merci.



Sub test1()
'
' test1 Macro
'

'
Cells.Select
Sheets("base").Select
Cells.Select
Selection.Delete Shift:=xlUp
Cells.Select
Sheets("O1-5").Select
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("base").Select
Rows("1:1").Select
ActiveSheet.Paste
Cells.Select

Dim nombre_feuille As Integer
Dim feuille As Integer
Dim ligne As Integer
Dim nombre_ligne As Integer
Dim ligne_destination As Integer
Dim valeur_cherche As String
ligne_destination = 2
nombre_feuille = Sheets.Count - 1
For feuille = 1 To nombre_feuille
'Worksheets(feuille + 1).Select
nombre_ligne = Worksheets(feuille + 1).Range("a65535").End(xlUp).Row
For ligne = 1 To nombre_ligne
Worksheets(feuille + 1).Select
valeur_cherche = Worksheets(feuille + 1).Cells(ligne, 1).Value
If valeur_cherche = "1" Then
Worksheets(feuille + 1).Rows(ligne).Select
Selection.Copy
Sheets("base").Select
Rows(ligne_destination).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ligne_destination = ligne_destination + 1
End If

Next ligne

Next feuille
End Sub

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

bonjour ou rebonjour

voila mon projet a bien avancer et fonctionne bien sur mes classeur comprenant peu de feuille mais des que le nombre de feuille augmente ca plante une petite aide svp



voila ce que cela affiche avec les variables locales

et voila la macro complete

Sub majtreso()
'
' majtreso Macro
'

Application.ScreenUpdating = True
'
Cells.Select
Sheets("base").Select
Cells.Select
Selection.Delete Shift:=xlUp
Cells.Select
Sheets("IL1-1").Select
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("base").Select
Rows("1:1").Select
ActiveSheet.Paste
Cells.Select

Dim nombre_feuille As Integer
Dim feuille As Integer
Dim ligne As Integer
Dim nombre_ligne As Integer
Dim ligne_destination As Integer
Dim valeur_cherche As String
ligne_destination = 2
nombre_feuille = Sheets.Count - 1
For feuille = 1 To nombre_feuille
'Worksheets(feuille + 1).Select
nombre_ligne = Worksheets(feuille + 1).Range("a65535").End(xlUp).Row
For ligne = 1 To nombre_ligne
Worksheets(feuille + 1).Select
valeur_cherche = Worksheets(feuille + 1).Cells(ligne, 1).Value
If valeur_cherche = "1" Or valeur_cherche = "2" Then
Worksheets(feuille + 1).Rows(ligne).Select
Selection.Copy
Sheets("base").Select
Rows(ligne_destination).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ligne_destination = ligne_destination + 1
End If

Next ligne

Next feuille

Application.ScreenUpdating = True
Sheets("tréso").Select
Range("A7").Select
ActiveWorkbook.RefreshAll

End Sub

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

j'ai oublié de vous mettre le message d'erreur :

erreur d'éxecution 1004 : la méthode select de la classe Worksheet a échoué

Re : Création d'une base par copier coller en macro vba avec une sélection multiple

j'ai trouver

classeur et tableaux hérité d'un ancien DAF, il y a des feuille masquer dans certain de mes classeurs ( ceux ou ca plantes)

Merci