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 :

range variable dépend d'une cellule [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mars 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Mars 2019
    Messages : 2
    Par défaut range variable dépend d'une cellule
    Bonjour,
    Je suis un débutant dans VBA. Vous pouvez m'aider ?
    J'ai un problème, ma range est variable enfaîte la ligne qui est variable dépend de ligne ou se trouve la cellule W3.
    EXPLICATION :
    je sélectionne le nome de logement "cellule W3".
    Le remplie mes données dans les 4 tableaux.
    Je clique sur BOUTON 9 pour rempli les 4 cellules SN SS SE SO correspondent au nome de logement W3
    Je clique sur BOUTON RAZ pour met à zéro les tableaux
    Et je refais les même démarche pour chaque logement
    Désolé pour les fautes, j’espère que vous avez compris

    Cordialement,p1.xlsm

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,

    Essayez ceci

    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
    Sub Copier()
        Dim Logt As String, N As String, S As String, E As String, O As String
        Application.ScreenUpdating = False
        Logt = [W3]
        N = [P11]
        S = [U11]
        E = [P25]
        O = [U25]
        Set c = Columns("A").Find(Logt, LookIn:=xlValues)
        If Not c Is Nothing Then
            Cells(c.Row, "F") = N
            Cells(c.Row, "G") = S
            Cells(c.Row, "H") = E
            Cells(c.Row, "I") = O
        End If
    End Sub
    Cdlt

  3. #3
    Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mars 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Mars 2019
    Messages : 2
    Par défaut
    ça marche bien
    Vraiment merci beaucoup

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-MAC 2011] Fonction NB.SI.ENS avec un critère qui dépend d'une cellule
    Par xavion dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/12/2012, 05h57
  2. [XL-2003] Problème pour renommer un fichier à partir d'une variable contenu dans une cellule
    Par the-geut dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/05/2010, 11h43
  3. Modifier mon range en faisant appel à une cellulle de ma feuille
    Par edouardmartin dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 02/04/2010, 01h09
  4. Boucle: Incrémenter une variable qui soit une cellule
    Par samuel_p dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/01/2009, 14h39
  5. Réponses: 3
    Dernier message: 01/12/2008, 17h20

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