XL 2019 Activer un onglet en fonction d'une variable // copier-coller sur une ligne vide mais à compter de la ligne 16

Robert à dit:

Bonjour ALFM, bonjour le forum

Essaie comme ça :

VB:

Sub copier_coller2()
Dim OS As Worksheet
Dim OD As Worksheet
Dim DEST As Range

Set OS = Worksheets("formulaire")
Set OD = Worksheets(OS.Cells(8, 5).Value)
Set DEST = IIf(OD.Cells(16, "A").Value = "", OD.Cells(16, "A"), OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
OS.Range("C22:E22").Copy
DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @ALFM2021 , Robert

Je te propose ceci

J'ai commenté le code pour que tu puisses comprendre le code et après copie je supprime les valeurs

Regarde la pièce jointe 1100570

@Phil69970

Cliquez pour agrandir...

ALFM2021 à dit:

1. Lorsque qu'en ligne 4 tu déclares 2 variables en même temps derlig& et Varnom : le fait de ne pas dire de quelle nature il s'agit, implique que c'est du "string" c'est ça ?

Cliquez pour agrandir...

ALFM2021 à dit:

2. Lorsque tu déclares la valeur de Varnom, je comprends évidemment que c'est la valeur de la cellule E8 de formulaire, mais je ne connais pas cette syntaxe. tu ré-utilises d'ailleurs cette syntaxe au moment des copier-coller. Peux tu me dire comment s'appelle cette syntaxe que je puisse trouver un peu de littérature à lire /écouter/voir sur ce sujet ?

Cliquez pour agrandir...

ALFM2021 à dit:

3. Concernant la boucle que tu as ajoutée, je crois comprendre, qu'en fait pour qu'il trouve le bon onglet, il faut qu'il parcourt tous les onglets ? (contrairement à ce que je pensais, où si il avait le nom de l'onglet il allait forcément le trouver...) Je vois bien ce que cela fait, et cela fonctionne parfaitement. mais je ne comprends pas que le nom de l'onglet ne suffise pas à l'identifier.

Cliquez pour agrandir...

Sub Transfert_V2()
Application.ScreenUpdating = False
Dim Derlig&

With Worksheets("Formulaire")
    Derlig = Worksheets(.[E8].Value).Range("A" & Rows.Count).End(xlUp).Row + 1
    Worksheets(.[E8].Value).Range("A" & Derlig) = .[C13].Value: .[C13].ClearContents   'On copie et on supprime la valeur dans le formulaire
    Worksheets(.[E8].Value).Range("B" & Derlig) = .[D16].Value: .[C16].ClearContents   'On copie et on supprime la valeur dans le formulaire
    Worksheets(.[E8].Value).Range("C" & Derlig) = .[C17].Value: .[C17].ClearContents   'On copie et on supprime la valeur dans le formulaire
End With
End Sub

Phil69970 à dit:

Bonjour Anne-Laure, le forum


1)
Dim Derlig&, VarNom

La variable Derlig est bien déclaré en Long mais je l'ai écrit en raccourci.
J'aurais pu écrire :
Dim Derlig as Long c'est équivalent à Dim as Derlig%

Voici la liste des raccourcis acceptés :

$ veut dire As String
& veut dire As long
# veut dire As double
% veut dire As integer

Quand à VarNom elle n'est pas déclarée avec un type defini elle est du type variant voir la doc.

Type de données variant

Rubrique de référence sur Office VBA

docs.microsoft.com

2)
J'aurais pu écrire et gagner une variable mais c'est plus long à écrire ....
If Ws.Name = VarNom Then c'est égale à If Ws.Name = Worksheets("Formulaire").[E8].Value Then

Je boucle sur chaque onglet en excluant l'onglet "formulaire" et je compare le nom de chaque onglet avec la valeur en en E8

3)
Tu as raison on peut se passer de la boucle.
Et c'est vrai que l'on peut agir directement sur le bon onglet sans boucler par tous les onglets.
On pourrait écrire :

Code:

Sub Transfert_V2()
Application.ScreenUpdating = False
Dim Derlig&

With Worksheets("Formulaire")
    Derlig = Worksheets(.[E8].Value).Range("A" & Rows.Count).End(xlUp).Row + 1
    Worksheets(.[E8].Value).Range("A" & Derlig) = .[C13].Value: .[C13].ClearContents   'On copie et on supprime la valeur dans le formulaire
    Worksheets(.[E8].Value).Range("B" & Derlig) = .[D16].Value: .[C16].ClearContents   'On copie et on supprime la valeur dans le formulaire
    Worksheets(.[E8].Value).Range("C" & Derlig) = .[C17].Value: .[C17].ClearContents   'On copie et on supprime la valeur dans le formulaire
End With
End Sub

On gagne 2 variables, on gagne en rapidité d’exécution mais on perd un peu en lisibilité.
Par habitude je boucle sur les onglets, car on ne le connait pas, alors qu'ici je peux aller directement au bon onglet car on le connait.

Regarde la pièce jointe 1100695
*Ne pas oublier le point . qui fait toute la différence

@Phil69970

Cliquez pour agrandir...