3514 résultats trouvés

par Theze
9 juin 2019, 09:44
Forum : Excel - VBA
Sujet : Rechercher et copier la dernière valeur numérique d'une colonne
Réponses : 11
Vues : 132

Re: Rechercher et copier la dernière valeur numérique d'une colonne

Bonjour, Une piste : Sub Test() Dim Col As Long Dim Lig As Long Dim Valeur Col = 2 With Worksheets("Feuil1") Lig = .Rows.Count Do Lig = .Cells(Lig, Col).End(xlUp).Row 'sur colonne B Valeur = .Cells(Lig, Col).Value Loop Until IsNumeric(Valeur) Or Lig = 1 End With If IsNumeric(Valeur) Then MsgBox "Val...
par Theze
17 mai 2019, 06:38
Forum : Excel - VBA
Sujet : Importation de données à partir de plusieurs fichiers Excel
Réponses : 8
Vues : 121

Re: Importation de données à partir de plusieurs fichiers Excel

Bonjour, Essais avec "DisplayAlerts = False" : Sub Consolider() 'Important, cette porcédure doit être dans le classeur "Tableau Consolidé.xlsm" ! Dim TC As Workbook Dim Cl As Workbook Dim TValeurs() As Variant Dim Tbl() As String Dim Dossier As String Dim I As Integer Dim J As Integer Dim K As Integ...
par Theze
16 mai 2019, 06:56
Forum : Excel - VBA
Sujet : Masquer barre d'état
Réponses : 3
Vues : 58

Re: Masquer barre d'état

Bonjour,

Pour cacher la barre d'état :
Application.DisplayStatusBar = False
par Theze
16 mai 2019, 06:48
Forum : Excel - VBA
Sujet : Importation de données à partir de plusieurs fichiers Excel
Réponses : 8
Vues : 121

Re: Importation de données à partir de plusieurs fichiers Excel

Bonjour, Bon, cette fois-ci j'ai construis trois classeurs pour les tests et apporté les corrections pour que ça fonctionne. Je poste juste la procédure "Consolider()", les deux fonctions n'ayant pas été modifiées : Sub Consolider() 'Important, cette porcédure doit être dans le classeur "Tableau Con...
par Theze
15 mai 2019, 16:09
Forum : Excel - VBA
Sujet : Importation de données à partir de plusieurs fichiers Excel
Réponses : 8
Vues : 121

Re: Importation de données à partir de plusieurs fichiers Excel

Oups,

Désolé, comme je n'est pas testé :oops:
Il faut modifier la variable de contrôle dans la boucle interne :
For J = 1 To UBound(TValeurs, 2)

    Cl.Worksheets("feuil1").Cells(K, J).Value = TValeurs(1, J)
    
Next J '<--- ici, il faut mettre J et non I car déjà utilisée !
par Theze
15 mai 2019, 07:58
Forum : Excel - VBA
Sujet : Importation de données à partir de plusieurs fichiers Excel
Réponses : 8
Vues : 121

Re: Importation de données à partir de plusieurs fichiers Excel

Bonjour, Pas facile sans aucun fichier pour tester donc, je te laisse les tests. Il te faut mettre tout le code ci-dessous dans un module standard du classeur "Tableau Consolidé.xlsm" et exécuter la sub "Consolider" en ayant au préalable adapter le chemin du dossier où se trouvent les classeurs (var...
par Theze
14 mai 2019, 21:58
Forum : Excel - VBA
Sujet : Scénario vente si je réaffecte un % de qté à un autre client
Réponses : 18
Vues : 196

Re: Scénario vente si je réaffecte un % de qté à un autre client

Bonjour,

Postes un classeur avec tes formules que je puisse éventuellement adapter !
par Theze
14 mai 2019, 21:56
Forum : Excel - VBA
Sujet : Coller un objet sur toutes les feuilles
Réponses : 10
Vues : 107

Re: Coller un objet sur toutes les feuilles

Bonjour, Tu dis que ça ne marche pas ! Les flèches ne se crées pas ? Si tu veux copier des Shapes, il te faut connaître leurs noms ! Ici, les flèches se nomment "FlecheGauche" et "FlecheDroite" (voir les noms dans la zone de nom à gauche de la barre de formule) à adapter. Les flèches sont collées da...
par Theze
14 mai 2019, 06:37
Forum : Excel - VBA
Sujet : Erreur 1004 : La méthode 'Range' de l objet '_Global' a échoué
Réponses : 5
Vues : 101

Re: Erreur 1004 : La méthode 'Range' de l objet '_Global' a échoué

Bonjour,

AlgoPlus (°v°)°
ou tout simplement (et là, avec des Ranges ça fonctionne) :
Column_Cadenas_utilisés = Range(First_Cell, Last_Cell).Value 'copie dans un tableau
par Theze
13 mai 2019, 19:01
Forum : Excel - VBA
Sujet : Scénario vente si je réaffecte un % de qté à un autre client
Réponses : 18
Vues : 196

Re: Scénario vente si je réaffecte un % de qté à un autre client

Bonjour,

C’est «PlageResult.Clear» qui supprime tout se qui se trouve sous la ligne d’entêtes !