IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Où est le problème dans ce code


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Décembre 2011
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2011
    Messages : 108
    Par défaut Où est le problème dans ce code
    Bonjour

    S 'il vous plaît examiner ce code où le problème

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Public Sub al_TQREER_ALL()
    Dim A As Long
    Dim C As Range, D As Range, F As Range, Q
    For R = 4 To Cells(Rows.Count, 5).End(xlUp).Row
    If Cells(R, 5).Value <> Empty Then
    If Cells(R, 5).Value = "Nouveau" Then
    Set C = Range("B4:B" & R)
    Set D = Range("D4:D" & R)
    Set F = Range("AL4:AQ" & R)
    Set Q = Range("AT4:AT" & R)
    Set XXX = Union(C, D, F, Q)
    Application.ScreenUpdating = False
    Range("B" & XXX).Copy
    With Worksheets(2)
    ZZ = .Cells(1000, 2).End(xlUp).Row + 1
    .Range("B" & ZZ).PasteSpecial xlPasteValues
    .Application.CutCopyMode = False
    .Application.ScreenUpdating = True
    End With
    End If
    End If
    Next R
    End Sub
    S'il vous plaît aider

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Oui, mais quel est le problème ? Une erreur, un comportement non prévu ?

  3. #3
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    XXX étant une variable de type Range, tu ne peux pas écrire :


  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    En plus des remarques de Daniel, peut être tu voulais faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Public Sub al_TQREER_ALL()
    Dim i As Long, d As Long, NewLig As Long
     
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    d = 4
    With Worksheets("Feuil1")                        'à adapter
        For i = 4 To .Cells(.Rows.Count, 5).End(xlUp).Row
            If .Cells(i, 5).Value = "Nouveau" Then
                Union(.Range("B" & d & ":B" & i), .Range("D" & d & ":D" & i), .Range("AL" & d & ":AQ" & i), .Range("AT" & d & ":AT" & i)).Copy
                With Worksheets(2)
                    NewLig = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
                    .Range("B" & NewLig).PasteSpecial xlPasteValues
                End With
                .Application.CutCopyMode = False
                d = i + 1
            End If
        Next i
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    End Sub

  5. #5
    Membre actif
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Décembre 2011
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2011
    Messages : 108
    Par défaut
    Merci beaucoup

    Merci beaucoup
    Mais la condition n'a pas été mis en œuvre

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If .Cells(i, 5).Value = "Nouveau" Then
    Je suis désolé parce que j'ai pris de votre temps

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Dans la colonne E, tu as uniquement le mot Nouveau ou bien encore autre chose?

Discussions similaires

  1. Problème dans le code?
    Par Arch Enemy dans le forum C
    Réponses: 5
    Dernier message: 15/08/2006, 11h05
  2. [MySQL] Un problème dans le code PHP
    Par jack_1981 dans le forum PHP & Base de données
    Réponses: 3
    Dernier message: 31/07/2006, 11h06
  3. Réponses: 5
    Dernier message: 14/05/2006, 22h41
  4. [MySQL] OU est le probléme avec ce code ??
    Par adlich dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 27/04/2006, 17h47
  5. Quel est le problème dans ce code ?
    Par Luther13 dans le forum C
    Réponses: 12
    Dernier message: 26/08/2003, 16h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo