Forums XLPages

Excel & VBA Forum principal [résolu] Modification en VBA de valeurs de données sur enregistrements filtrés

Modification en VBA de valeurs de données sur enregistrements filtrés
#1
wjmavsk
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 23-03-2013 12h41
Bonjour,
j'essaie de modifier la valeur de certains champs d'un tableau en fonction de la valeur d'un autre champs sur la même ligne de ce tableau.
Dans l'exemple, je cherche à remplacer le contenu de "EDF" pour les lignes où N°sem est égal à 88. Je veux y inscrire -1 au lieu de D.
Voir fichier Demo joint.
Quellle fonction VBA peut-on utiliser pour optimiser le temps d'execution sur un tableau comportant plusieurs milleirs de lignes?
Pièce jointe:
xlsm Demo .xlsm   [ Taille: 78.29 Ko - Téléchargements: 423 ]
Hors Ligne
 Rapport   Haut 

Re: Modification en VBA de valeurs de données sur enregistrements filtrés
#2
wjmavsk
Aspirant XLPages

Inscription: 05/01/2013

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 23-03-2013 17h19
Dim lCount, NbLignes, LnFirst As Long


Sub Modif_EDF()
'
' Modif_EDF Macro
'

'
On Error Resume Next
 
' trouve nombre de lignes avec code 88 dans colonne 7
        NbLignes = WorksheetFunction.CountIf(Columns(7), "88")
   
    For lCount = 1 To NbLignes

        Columns(7).Find(What:="88", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
       
            LnFirst = ActiveCell.Row
            Cells(LnFirst, 4).Select
                If ActiveCell = "D" Then
                        ActiveCell = "-1"
                        Cells(LnFirst, 5).Select
                            If ActiveCell <> "AC" Then
                                ActiveCell = "AC"
                        End If
                End If
                 
        Next lCount

End Sub
La fonction Find permet de réaliser cette opération avec tableau filtré ou non filtré.
Cordialement,
JM
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes