chercher une condition d'un "if" dans une cellules excel

Version imprimable

Bien le bonjour,

J'ai créé une petit macro tout mimi qui me permet de faire un copier coller tout en respectant une condition.

Dans ce cas là la macro copie-collera tout les cellules qui n'auront pas la valeurs 1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Dim x As Integer
 
Sub copi_col()
 
x = 7
 
initia
 
While x < 961
 
    If wspilot.Cells(x, 39) = 1 Then
        x = x + 1
            Else
            wspilot.Cells(x, 13) = wspilot.Cells(x, 39)
            x = x + 1
    End If
Wend
 
 
 
End Sub

(petite précision le programme "initia" permet de déclarer tout un tas de variable utilisé dans de nombreux autre code sur le même fichier excel. Elles ne sont donc pas tous utile.)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public xL, nbL, xC, nbC As Integer
Public pilot, prix As String
Public wspilot, wsprix, wscode As Worksheet
 
Public Sub initia()
 
 
Set wscode = Worksheets("données code")         ' ici on déclara (avec la ligne 1) les différents nom de pages. parce que "Worksheets("historique des prix")" c'est long à taper donc voilà.
 
pilot = wscode.Range("C15")                     ' par contre le nom du pilots risque de changer.
Set wspilot = Worksheets(pilot)                 ' on va donc sauvegarder son nom dans la feuille de données pour pouvoir la modifier facilement.
 
prix = wscode.Range("C16")                      ' idem
Set wsprix = Worksheets(prix)
 
    nbL = wscode.Range("H4").Value              ' et ici on chope les valeurs qu'on aura besoin pour la suite
    xL = wscode.Range("K4").Value               '
    nbC = wscode.Range("J4").Value              '
    xC = wscode.Range("K5").Value               '
 
 
End Sub

l'idée et de rendre le code plus polyvalent et de chercher la condition d’exécution ou de non exécution dans une cellules excel. par exemple en changeant cette dit cellules lui dire que cette fois il copie-collera que tout les cellules ou il trouvera un X.

Bonjour,

Comme ceci peut-être:

Code:

1
2
3
4
5
6
7
Sub copi_col()
    Application.ScreenUpdating = False
    initia
    For x = 7 To 961
        If wspilot.Cells(x, 39) <> 1 Then wspilot.Cells(x, 13) = wspilot.Cells(x, 39)
    Next x
End Sub

Cdlt

21/11/2019, 11h07
Fireapple

Salut Artur083,

merci pour la réponse

Je ne connais pas les propriété de "Application.ScreenUpdating" Et google n'est pas des plus claire avec moi... tu peux m'expliquer un peux comme il fonction?

d'ailleurs je vois que tu utilise "for x=7 to 951". cette manip est plus optimisé que le "while"?

cordialement

Bonjour,

Concernant "Application.ScreenUpdating", pas besoin d'aller sur Google, simplement se positionner sur "ScreenUpdating" et faire F1 pour obtenir l'aide VBA excel, Tout est dit avec exemple à l'appui.
Concernant le "Do While" et le "For x= ", pour savoir quel est le plus rapide, le mieux est encore de mesurer le temps que dure chaque exécution.
Pour cela, déclencher un timer au début de la boucle et un autre à la fin de la procédure et faire la soustraction.
Code:

1 2 3 4 5 6 7 8 9 Sub copi_col() Application.ScreenUpdating = False initia Deb = Timer For x = 7 To 961 If wspilot.Cells(x, 39) <> 1 Then wspilot.Cells(x, 13) = wspilot.Cells(x, 39) Next x MsgBox = Timer - Deb & "Sec" End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim x As Integer Sub copi_col() x = 7 initia Deb = Timer While x < 961 If wspilot.Cells(x, 39) = 1 Then x = x + 1 Else wspilot.Cells(x, 13) = wspilot.Cells(x, 39) x = x + 1 End If Wend MsgBox = Timer - Deb & "Sec" End Sub
Faites les essais avec les 2 procédures

Mais déjà, on peut constater que dans la boucle avec Do While l'incrémentation nécessite 2 opérations (x=x+1) alors que ces 2 lignes sont absentes avec "For".
Revenez nous faire part du résultat de vos essais.

Cdlt

21/11/2019, 12h54
Transitoire

Bonjour #Arturo83 :plusser:, pour le cas ou FireApple serait sur Mac (sur Mac, la touche F1 diminue la luminosité de l'écran):
Application.ScreenUpdating = False empêche le rafraichissement de l'écran. Celui-ci rend désagréable un possible mouvement de l'écran et peut aussi ralentir considérablement la vitesse d'exécution de la procédure en cours. A la fin de celle-ci on place: Application.ScreenUpdating = True ;)
Cordialement 8-)
22/11/2019, 09h15
Fireapple

merci transitoire pour cette réponse claire et précise ^^"

j'ai maintenant une nouvelle formule à ajouter à mon dico!

j'ai faits deux trois tests avec le Timer pour voir les différences entre le FOR et le WHILE (du coup je n'ai pas mis l' Application.ScreenUpdating). je varie entre 3.6s et 3.01s. Le code est lancé comme ça. il ne remplace aucune donnée dans les cases. ce qui est étrange c'est que mon code primaire (avec les deux incrémentations) prend moins de temps qu'avec ta formule X). bon les tests ont été faits une seule fois, je les referai chez moi avec un vrai pc et avec une dizaine d’exécutions que j'enregistrerais dans un tableau. vous le transmettrais par la suite (moi aussi je trouve ça super-intéressant de voir ce qui marche le mieux)

Mais du coup tout ce si ne répond absolument pas à ma question ^^

mon objectif de base était de changer les conditiosn du if en cherchant l'information dans une cellule excel.

c'est a dire: faire une fonction copier coller polyvalent qui copiera ou ne copiera pas certaines valeurs suivant ce que je lui aurais demandé depuis le fichier excel. l'idée et que l'utilisateur ne soit pas obligé d’ouvrir le code pour modifier les conditions du if.
22/11/2019, 15h11
Transitoire

Re Bonjour,

Citation:

c'est a dire: faire une fonction copier coller polyvalent qui copiera ou ne copiera pas certaines valeurs suivant ce que je lui aurais demandé depuis le fichier excel. l'idée et que l'utilisateur ne soit pas obligé d’ouvrir le code pour modifier les conditions du if.

Dans une autre vie, j'avais créé dans mon classeur, une feuille que j'avais appellé "tableau de bord", dans lequel j'avais mis une liste de cellule que j'avais nommées dans lesquelles, je pouvais trouver aisément des valeurs avec lesquelles travaillait mon programme, exemple: TvaReduite; TvaPleine; etc etc.
Ainsi, lorsque les Rapetout des finances modifiaient les TVA, je n'avais pas l'utilité d'ouvrir les macros pour faire les modifications.
Si je puis me permettre, nommez les cellules exemple par Insertion/nom/définir: TvaNormale. Ainsi, vos procédures pourront appeller la valeur quelle contient de n'importe ou avec le code

Code:

MaVar = Sheets("TableauBord").Range("TvaNormale").Value ' Vous n'aurez plus qu'a utiliser MaVar dans un code

Ainsi les utilisateurs pourront remplacer aisément une valeur par une autre et le programme pourra continuer. Attention toutefois aux déclarations de variables Si MaVar est en String, elle ne pourra pas accepter de chiffre.
Cordialement 8-)