Conseil pour macro boucle Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
v
vlad92
Jeune membre
Jeune membre
Messages : 32
Inscrit le : 15 mars 2013
Version d'Excel : 2012

Message par vlad92 » 27 novembre 2018, 21:06

Bonjour
J’ai de code que j’essaye d’améliore, accélère. (je pense qu’il doit avoir trop boucle)
Private Sub CommandButton1_Click()
Do While ActiveCell <> ""

valeur = Mid(ActiveCell.Offset(0, -3), 3)
valeur2 = Mid(ActiveCell.Offset(0, -2), 3)

derl = Sheets("1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To derl

If Sheets("1").Range("t" & i) Like "*" & valeur & "*" And Sheets("1").Range("u" & i) Like "*" & valeur2 & "*" Then
ActiveCell.Offset(0, 5) = Sheets("1").Range("t" & i).Offset(0, -18)
ActiveCell.Offset(0, 6) = Sheets("1").Range("t" & i)
ActiveCell.Offset(0, 7) = Sheets("1").Range("u" & i)

Next
Loop

End Sub



Je ne suis pas encore très à l’aise avec les tableaux sur VBA j’ai donc commencé à teste ce code qui qui me semble plus rapide mais je sais pas comment boucler avec Do While "erreur" et je ne sais pas où mettre la condition Like "*" & valeur & "*"
Private Sub CommandButton1_Click()

Do While ActiveCell <> ""

valeur = ActiveCell

Set Plage = Sheets("1").Range("a2:h" & Range("h55000").End(xlUp).Row)

For Each c In Plage
If c = valeur Then

ActiveCell.Offset(0, 5) = c.Offset(1, -18)

End If
Next c
ActiveCell(1, 0).Select

Loop


End Sub



Merci pour votre aide et conseil
Avatar du membre
CORDIA5
Membre dévoué
Membre dévoué
Messages : 620
Appréciations reçues : 14
Inscrit le : 14 août 2016
Version d'Excel : 2016

Message par CORDIA5 » 27 novembre 2018, 21:11

Bonsoir

Un fichier peut-être ?

:joindre:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Conseil pour Macro
    par floflo03 » 10 décembre 2019, 19:08 » dans Excel - VBA
    4 Réponses
    71 Vues
    Dernier message par floflo03
    11 décembre 2019, 00:16
  • Conseil SVP
    par figuedi » 7 avril 2016, 20:33 » dans Excel - VBA
    2 Réponses
    210 Vues
    Dernier message par figuedi
    8 avril 2016, 05:43
  • Conseil VBA
    par cleiiim » 26 mars 2019, 12:01 » dans Excel - VBA
    9 Réponses
    153 Vues
    Dernier message par cleiiim
    27 mars 2019, 15:02
  • Aide - Conseil
    par Labast » 15 juillet 2014, 13:57 » dans Excel - VBA
    1 Réponses
    170 Vues
    Dernier message par FINDRH
    15 juillet 2014, 16:29
  • Conseil pour formule
    par patga » 10 janvier 2016, 09:22 » dans Excel - VBA
    2 Réponses
    215 Vues
    Dernier message par rocket4
    10 janvier 2016, 10:00
  • Demande de conseil fonction
    par jo79 » 10 janvier 2016, 15:37 » dans Calc
    4 Réponses
    431 Vues
    Dernier message par jo79
    10 janvier 2016, 19:53