Discussion :

[Guy_L]

Bonjour,
Voici mon besoin:
Afin de remplir automatiquement un formulaire à partir des données figurant dans une feuille A, en cliquant simplement sur le n° de ligne de cette feuille, la ligne est copiée dans la feuille B et, par calcul (=) les cellules sont remplies dans le formulaire (feuille C)

Par exemple: la cellule F5 de la feuille A est recopiée par la macro en F5 de la feuille B et dans la feuille C (formulaire), c'est la case A4 qui est égale à F5 de la feuille B (formule: =FeuilleB!F5)

Voici cette macro:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Cible As Range)
 
  If (Cible.Rows.Count = 1) * (Cible.Columns.Count = Me.Columns.Count) Then
    With Feuil7
      Cible.EntireRow.Copy Destination:=.Cells(3, 1)
    End With
    Sheets("Feuille C").Select
  End If
End Sub

L'étape suivante est d'imprimer autant de formulaires que de lignes dans la feuille A (on pourrait le faire via le publipostage de Word par exemple, mais il faut rester dans le contexte Excel).

Voici donc le principe que je voudrais produire par macro:

Avec le même procédé que le remplissage automatique ci-dessus:
- sélection de la première ligne de données,
- impression de la feuille C
- sélection de la ligne suivante
- impression ...
et ce jusqu'à ce que toutes les lignes de la feuille A non vides aient été balayées.

J'ai écrit le script suivant, mais il bugge

erreur de compilation, nombre d'arguments incorrect ou affectation de propriété incorrecte

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
Sub Impr_Totale()
    Dim Cible As Range
    Sheets("FeuilleA").Select
    i = 3
    While Sheets("FeuilleA").Cells(i, 1).Value <> ""
        Cible.Rows.Count = i
'        Rows("1:" & i).Select
            With Feuil7
              Cible.EntireRow.Copy Destination:=.Cells(3, 1)
'              i.EntireRow.Copy Destination:=.Cells(3, 1)
            End With
        Sheets("FeuilleC").Select
        ActiveSheet.PrintOut Copies:=1
        i = i + 1
    Wend
End Sub

Pouvez-vous m'aider ? (en m'expliquant ce qui ne va pas, merci)

[illight]

J'ai écrit le script suivant, mais il bugge (erreur de compilation, nombre d'arguments incorrect ou affectation de propriété incorrecte):

Sur quelle ligne ?

[Marc-L]

Bonjour,

La variable Cible n'a pas l'air d'être initialisée dans la procédure …

Qui plus est la propriété Count est en lecture seule, donc non modifiable ‼

[Guy_L]

Sur quelle ligne ?

Cible.Rows.Count = i

La variable Cible n'a pas l'air d'être initialisée dans la procédure …

dans la première macro non plus, pourtant elle fonctionne. est-ce nécessaire dans la deuxième ?

Qui plus est la propriété Count est en lecture seule, donc non modifiable ‼

ce qui confirmerait le bug sur la ligne indiquée, mais comment y remédier ?

[Marc-L]

dans la première macro non plus, pourtant elle fonctionne. est-ce nécessaire dans la deuxième ?

Et non : elle est forcément initialisée dans la première macro car paramètre de la déclaration de l'évènement !


Le second code n'ayant aucun rapport avec le premier, certainement pas le même développeur,
il ne peut fonctionner sur aucune version d'Excel car tellement aware ‼

Donc il faut écrire littéralement ce qu'il est censé faire puis comparer avec le code lui-même …

[Guy_L]

Et non : elle est forcément initialisée dans la première macro car paramètre de la déclaration de l'évènement

en effet, tu as tout à fait raison, elle est déclarée par:
"Private Sub Worksheet_SelectionChange(ByVal Cible As Range)"
C'est pourquoi, j'avais mis dans ma seconde macro:
"Dim Cible As Range"
pensant que c'était ça la déclaration de variable

Le second code n'ayant aucun rapport avec le premier, certainement pas le même développeur,
il ne peut fonctionner sur aucune version d'Excel car tellement aware ‼
Donc il faut écrire littéralement ce qu'il est censé faire puis comparer avec le code lui-même …

OK, donc je détaille (en commentaire)

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
Sub Impr_Totale()
    Dim Cible As Range	'déclaration de la variable Cible comme Range (ligne)    
Sheets("FeuilleA").Select	'sélection de la feuille A (feuille avec les données de départ)   
 i = 3   'initialisation de la variable i à la valeur 3 (3ème ligne, les deux premières étant des titres)
    While Sheets("FeuilleA").Cells(i, 1).Value <> "" 'faire temps que la cellule Ai est différente de vide        
Cible.Rows.Count = i	'la ligne sélectionnée est i
'        Rows("1:" & i).Select
            With Feuil7	'La feuille 7 est la Feuille B de mon explication initiale, elle "reçoit" la copie de la ligne i
              Cible.EntireRow.Copy Destination:=.Cells(3, 1) 'copie de la ligne i en feuille B (7) ligne 3
'              i.EntireRow.Copy Destination:=.Cells(3, 1) 'essai en intégrant i dans la formule, mais ne fonctionne pas c'est pourquoi elle est affublée de la ' comme remarque
            End With
        Sheets("FeuilleC").Select	'sélection de la feuille C (formulaire final)
        ActiveSheet.PrintOut Copies:=1		'impression de la feuille sélectionnée
        i = i + 1	'incrément de i (de ligne)
    Wend
End Sub

il ne peut fonctionner sur aucune version d'Excel car tellement aware

Aware ? Pourquoi ne peut-il pas fonctionner ?

[Marc-L]

Ta traduction en gras ne veut pas dire que le code qui la précède correspond, loin de là ‼ Et ce dès le Dim …

Rien qu'en appuyant sur !

Quand message d'erreur sur une ligne, soit la supprimer soit la mettre en commentaire …

Sinon je vais être occupé pendant quelques heures …