Macro Excel sur sheets
bonjour
j'ai un fichier excel avec des macros
comment je dois faire pour l'utiliser sur google sheets
merci pour votre aide
Bonjour,
Les macros excel ne fonctionnent pas sur GSheets et vis versa
il faut donc les convertir suivant les faisabilités
j'ai ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B21"), Target) Is Nothing And Target.Count = 1 Then
Recherche Target.Value, Target.Row
End If
End Sub
et ceci
Option Explicit
Sub Recherche(Nom As String, Ligne As Long)
Dim Cel As Range
Dim Depart As String
Dim Ws As Worksheet
Range("C" & Ligne & ":D" & Ligne).ClearContents
For Each Ws In Sheets(Array("Rangées 1", "Rangées 2", "Rangées 3"))
Set Cel = Ws.Cells.Find(what:=Nom, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Range("C" & Ligne) = Cel.Offset(0, 1)
Range("D" & Ligne) = Ws.Name
Exit Sub
End If
Next Ws
MsgBox "Produit non trouvé"
End Sub
vous penser que c'est possible de convertir ?
Bonjour,
Il vaudrait mieux mettre un lien vers un fichier GSheets et décrire ce que tu souhaites (même si la lecture du VBA donne une première idée).
je cherche a retrouvé une forme (feuille formulaire) dans un casier et une rangées
voici le lien du fichier
https://docs.google.com/spreadsheets/d/119LEo25wZ-9lIvrCNXGHM5x14x8fj8xOoSaCe1kuO8E/edit?usp=sharing
On n'a pas besoin de script/macro
=iferror(query({DATA!A:C;DATA!D:F};"select Col3,Col2 where Col1="&B3&" "))voir fichier
impeccable
merci pour votre aide
un grand merci
mais pourquoi si j'ajoute une rangées et que je copie vos formules en changeant le nom il me note une erreur #ref!
les seules cases à renseigner sont celles en jaune, le reste se remplit automatiquement
=query({'Rangées 3'!B2:C;'Rangées 3'!D2:E;'Rangées 3'!F2:G;'Rangées 3'!H2:I;'Rangées 3'!J2:K;'Rangées 3'!L2:M;'Rangées 3'!N2:O;'Rangées 3'!P2:Q};"select * where Col2 is not null";0)=transpose(split(rept("Rangées 3|";COUNTA(J:J));"|"))rien d'autre sinon cela bloque la propagation des valeurs
une belle illustration du fait qu'il ne faut pas réfléchir à traduire du VBA en script, car ce n'est pas nécessaire !
bonjour juste pour info
il y avais une petite erreur dans la formule En Rangées 3'!H2:I5
=query({'Rangées 3'!B2:C;'Rangées 3'!D2:E;'Rangées 3'!F2:G;'Rangées 3'!H2:I5;'Rangées 3'!J2:K;'Rangées 3'!L2:M;'Rangées 3'!N2:O;'Rangées 3'!P2:Q};"select * where Col2 is not null";0)
=query({'Rangées 3'!B2:C;'Rangées 3'!D2:E;'Rangées 3'!F2:G;'Rangées 3'!H2:I;'Rangées 3'!J2:K;'Rangées 3'!L2:M;'Rangées 3'!N2:O;'Rangées 3'!P2:Q};"select * where Col2 is not null";0)
on sais jamais si ca intéresse quelqu'un par la suite
bonne journée à tous
exact, corrigé ! le principal est que tu comprennes maintenant comment faire !