Forums XLPages

Excel & VBA Espace Débutants [résolu] Recherche valeur.

Recherche valeur.
#1
gmh
Aspirant XLPages

Inscription: 20/05/2010

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 28-05-2010 07h44
Bonjour,
J'ai une feuille de données avec un certain nombre de "désignations" et "quantités" ces valeurs vont sur plus de 500 lignes qui sont mis à jour régulièrement. J'ai une feuille "récap" qui par une formule reprend les valeur de la feuille "données".

Je voudrai être plus simple en passant par code VBA au lieu d'utiliser la formule "= dans chaque cellule". Je peu aussi passer par "=rechercheV" mais aussi lourd.
De plus certainne cellule contienne des "-" que je voudrai remplacer par des valeurs "0". Quel code VBA?
Cordialement
gmh.




Pièce jointe:
xls Recap.xls   [ Taille: 22.50 Ko - Téléchargements: 488 ]
Hors Ligne
 Rapport   Haut 

Re: Recherche valeur.
#2
michel_m
Débutant XLPages

Inscription: 05/07/2007
De Aubenas(07)

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2000
Posté le : 28-05-2010 10h48
Bonjour,

essaies ce code:
Option Base 1
Sub recapituler()
Dim dercol As Byte, entete As String, cptr As Byte, nbre As Integer
Dim tablo
Dim lig As Integer, donnee As Byte
dercol = Sheets("récap").Range("IV3").End(xlToLeft).Column
entete = Range("B3")
 With Sheets("données")
    nbre = Application.CountIf(.Columns(2), entete)
    ReDim tablo(dercol - 1, nbre)
    For cptr = 2 To dercol
        entete = Sheets("récap").Cells(3, cptr)
        lig = 1
        donnee = 1
        For cptr_donn = 1 To nbre
            lig = .Columns(2).Find(entete, .Cells(lig, 2)).Row
            tablo(cptr - 1, donnee) = Replace(.Cells(lig, 3), "-", 0)
            donnee = donnee + 1
        Next
    Next
End With

Application.ScreenUpdating = False
With Sheets("récap")
    .Range("B4").Resize(nbre, dercol - 1) = Application.Transpose(tablo)
    .Activate
End With


End Sub

Amicalement
Michel_M
Hors Ligne
 Rapport   Haut 

Re: Recherche valeur.
#3
gmh
Aspirant XLPages

Inscription: 20/05/2010

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007
Posté le : 28-05-2010 11h41
Bonjour,
Que demander plus, merci beaucoup c'est exactement ce que je voulais. Des lignes Vba de plus pour comprendre et apprendre ce language.
A bientôt,
Cordialement,
gmh
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