CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

convertir macro excel pour google drive

outiat
outiat
Niveau 6
17 août 2019 à 12:55:21

Bonjour,

Quelqu'un pourrait-il me convertir cette macro excel pour google drive ?
Merci bonne journée

Sub Modif_Prix()
 
 
Sheets("Calculator").Activate
'Compte le nombre de produits
Cells(12, 1).Activate
Selection.CurrentRegion.Select
Nbprod = Selection.Rows.Count - 1
'Boucle de la ligne 13 jusqu'à la fin de la liste
For I = 13 To 13 + Nbprod - 1
    Sheets("Calculator").Activate
    Cells(I, 1).Select
        'Si la cellule prix contient une valeur
        If Cells(I, 1).Value <> Empty Then
            'Récupère cette valeur
            Newprix = Cells(I, 1).Value
            'selectionne la cellute de droite
            Selection.Offset(0, 1).Activate
            'Récupère la valeur de cette cellule (Produit)
            Produit = ActiveCell.Text
 
            'Active la feuille liste prix
            Sheets("Dirty Data").Activate
            Cells(1, 16).Select
            'Tant que la cellule contenant la valeur du produit n'est pas recontrée
            While ActiveCell.Value <> Produit And ActiveCell.Value <> Empty
                'se déplace vers le bas
                Selection.Offset(1, 0).Activate
                'quand la cellule recontrée = Produit
                If ActiveCell.Value = Produit Then
                    'décale vers la droite et inscrit le nouveau prix
                    Selection.Offset(0, 1).Activate
                    ActiveCell.Value = Newprix
                End If
            Wend
         End If
Next
End Sub
godrik
godrik
Niveau 30
17 août 2019 à 22:08:05

qu'est ce que tu veux dire par"pour google drive"? Tu veux parler de google sheets?

outiat
outiat
Niveau 6
17 août 2019 à 23:34:09

Oui c'est ça pardon ^^

outiat
outiat
Niveau 6
20 août 2019 à 18:08:35

Petit up

Sous forums
  • Aide à l'achat Mac
  • Steam Deck
  • Création de sites web
  • Création de Jeux
  • Linux
  • Programmation
  • Internet
  • Macintosh
  • Hardware
La vidéo du moment