Problème argument dans une macro Excel

Salut Mathieu  

Alors là, un nouveau venu à qui il n'est pas besoin de dire qu'il faut dire bonjour et qu'il faut utiliser la balise [code], chapeau !

Sois le bienvenu, je ne doute pas que tu vas recevoir bientôt de l'aide  

Salut,

Voici de l'aide  

1°, Ligne 7, on sait que la feuille (sheet) est de type calcul (worksheet), alors c'est dans la collection worksheets qu'on va aller taper.

2° GRRRRRRRRRR un Select

2°BIS, j'espère que la ligne 10 n'est qu'un exemple. Parce que si tu prétends m'écrire un truc du genre :

c.Select

Selection.fonction

oublie tout de suite que j'ai voulu d'aider

Sauf à le faire exprès, les fonctions select et activate sont mauvaises. Fais une petite recherche sur ce site, j'explique 1000 fois pourquoi.

Ligne 7, il faudra faire l'effort de préciser la feuille à chaque fois. Utiliser une variable est une bonne idée.
Ligne 10, puisque tu as une variable "c" sur la cellule, pas besoin de la sélectionner.

3° Oui, bien sûr que a et b sont des Ranges. Assez curieusement, le type Cellule n'existe pas en VBA/Excel  

Voilà la réponse à ta question :

' // CopierCollerLigne Macro

' // Macro by zeb ;)

 
' // Avec des Range

Sub CopierCollerLigne(A as Range, B as Range)

	Dim C As Range

	For Each c In Range(A,B)

  	C.Copy Destination

	Next

End Sub

 
Sub Appel

  ' // 1

	CopierCollerLigne Worksheets("Suivi Chap.15" ).Range("A2"), Worksheets("Suivi Chap.15" ).Range("B4")

 
	' // 2

	With Worksheets("Suivi Chap.15" )

		CopierCollerLigne .Range("A2"), .Range("B4")

	End With

 
	' // 3

	Dim ws15 As Worksheet

	Set ws15 = Worksheets("Suivi Chap.15" )

	CopierCollerLigne ws15.Range("A2"), ws15.Range("B4")

End Sub

Encore de l'aide  

J'aime pas du tout cet appel avec deux Ranges qui n'en deviennent qu'un. L'effort devrait être fait avant !
Regarde :

' // Avec un Range

Sub CopierCollerLigne(cellules_a_copier as Range)

    Dim cellule As Range

    For Each cellule In cellules_a_copier

      cellule.Copy Destination

    Next

End Sub

 
CopierCollerLigne Worksheets("Suivi Chap.15" ).Range("A2:B3" )

Oui, mais c'est quoi cette destination ?

Sub CopierCollerLigne(cellules_a_copier as Range, destination As Range)

    Dim source As Range

    Dim cible As Range

 
    Set cible = destination

    For Each source In cellules_a_copier

      source.Copy cible

      Set cible = destination.Offset(1, 0)

    Next

End Sub

 
CopierCollerLigne Worksheets("Feuille source" ).Range("A2:B3" ) Worksheets("Feuille de destination" ).Range("A1")

Bon après, il faut savoir ce que tu veux copier, comment, de où à où, etc.
J'espère que ces quelques lignes t'aident déjà !

Si tu as d'autres questions, n'hésite pas  

Bonjour Zeb,

merci tout d'abord pour tes réponses. Comme tu as du le remarquer, je suis un peu nouveau dans le monde VBA, et les "select" c'était pour les enregistrements de macros ...

Mais tu t'es bien fait comprendre, j'ai tout effacé et recommencé.

J'avais déjà réussi avec la solution de ta première réponse, mais la deuxième est plus pertinente.

En fait je réalise un test sur ce que tu appelles "cellules_à_copier" (test de cohérence des données), et si ce test est négatif, je copie un groupe de 10 cellules en ligne que j'insère sur une autre worksheet. Ma macro complète crée cette nouvelle worksheet et fait le test de cohérence.

Merci encore pour ton aide, tu m'a mis sur des bons rails... parce que c'était pas bien parti  

A bientôt,

Mathieu

Si j'ai pu aider ..  
N'hésite pas à revenir !