Adapter une macro Excel pour Google Sheets

Version imprimable

06/06/2018, 20h07
julie.F

1 pièce(s) jointe(s)

Adapter une macro Excel pour Google Sheets

Bonjour à tous,

J'ai créer un tableau excel contenant 12 colonnes. Lorsque dans la case de la colonne L se trouve le mot "fini" je souhaite couper la ligne entière et la coller dans un autre tableau d'une autre page intitulée "archive". Pour ca j'ai crée une macro qui fonctionne très bien sur excel. Mais lorsque je transfert mon tableau sur sheets la macro ne fonctionne plus. En regardant sur internet j'ai vu que le code n'était pas le même mais je n'arrive pas à faire un code qui fonctionne sur sheets.

Voici le code sur excel :

Pièce jointe 386584

Pouvez vous m'aider à faire le code sur sheets ?

Merci beaucoup
06/06/2018, 20h50
jerome.vaussenat

Salut,

Commençons par le commencement. Je ne sais pas si tu as vu le post après publication. Mais on ne peut pas dire que tu nous engage à lire ton code.
Pour info, tu peux et pour les prochains échanges et je t'invite à le faire, copier directement ton code dans le post et SURTOUT le placer dans la balise prévue à cet effet : # dans les boutons en haut.

Ceci étant dit :

Citation:

je n'arrive pas à faire un code qui fonctionne sur sheets.

Je ne comprend pas ta remarque.
Que veux tu dire par là ?

Tu veux que ton code soit placé dans le module spécifique d'une feuille ? Comme le serais un code de macro événementielle ou ???
Si c'est çà, quel est le but ?

Je pensais que cela serait plus lisible sur photo. :?

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Transfert()
Dim LastLig As Long
Dim cDest As Range
 
Application.ScreenUpdating = False
With ThisWorkbook
    'cDest: La celllule de destination: première cellule vide de la colonne A de Feuil2
    With .Worksheets("archive")
        Set cDest = .Cells(.Rows.Count, "A").End(xlUp)(2)
    End With
    With .Worksheets("Feuil1")
        'Enlève l'éventuel filtre automatique
        .AutoFilterMode = False
        'LastLig, ligne de la dernière cellule remplie de colonne A de Feuil1
        LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
        'On fait un filtre automatique sur la colonne A de Feuil1 avec comme critère "x"
        .Range("L1:L" & LastLig).AutoFilter field:=1, Criteria1:="fini"
        'Si au moins une ligne résultat du filtre (en plus de la ligne 1 des titres)
        If .Range("L1:L" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then
            With .Range("A2:A" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow
                'On copie toutes les lignes visibles vers cDest (sauf la ligne des titres)
                .Copy cDest
                'on supprime toutes les lignes visibles (sauf la ligne des titres)
                .Delete
            End With
        End If
        'on vide notre variable cDest
        Set cDest = Nothing
        'On enlève le filtre automatique
        .AutoFilterMode = False
    End With
End With
End Sub

J'ai fais ce code sur excel, dans le but de le partager sur le drive afin que les agents d'une entreprise puissent voir ce tableau. Ce drive utilise le format sheets et non excel. C'est pourquoi mon code ne fonctionne plus. Je souhaite donc trouver un code sur sheets qui rendrait possible la copie de ma ligne dans un autre tableau d'une autre feuille.

07/06/2018, 09h04
jerome.vaussenat

Salut,

Et bien là, on n'était pas prêt de trouver.

Quand tu parles de sheets, mets le mot google devant !

ET cela ne me semble pas aussi simple que cela.

Je t'invite à aller voir là :
https://www.developpez.net/forums/d1...-google-sheet/

voir ici, plus récent :
https://www.developpez.com/actu/1981...-interactions/