VBA identifier et copier valeurs d'un tableau

C

Compte Supprimé 979

Guest

• 23 Décembre 2012

• #2

Re : VBA identifier et copier valeurs d'un tableau

Salut alexvol

Si tes chiffres sont dans les cellules A1:A5, tu peux essayer ceci

Code:

Sub Test()
  Dim NbInc As Integer, Inc As Integer
  NbInc = Combien()
  For Inc = 1 To NbInc
    MsgBox "Boucle " & NbInc & " fois"
  Next Inc
End Sub


Function Combien()
  Dim Inc As Integer, NbPair As Integer
  NbPair = 0
  For Inc = 1 To 5
    If Range("A" & Inc) Mod 2 = 0 Then
      NbPair = NbPair + 1
    End If
  Next Inc
  Combien = NbPair
End Function

A+

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Décembre 2012

• #3

Re : VBA identifier et copier valeurs d'un tableau

salut
Etapes 1 et 2 avec une formule
tu mets tes valeurs de A2 à A6 et ailleurs tu tapes
=SOMMEPROD((MOD(A2:A6;2)=0)*1;A2:A6)

edit: Salut Bruno ;-)

 

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 23 Décembre 2012

• #4

Re : VBA identifier et copier valeurs d'un tableau

Merci de ces propositions mais les chiffres ne sont pas dans une feuille.
Quelques explications supplémentaires :
- j'ai une valeur en "A1" ;
- je copie le format des cellules "A2" à "D4".
- je souhaite faire des "collage" en fonction de la valeur en "A1" :
- pour tous les chiffres pairs, à droite de la sélection, si 2, 1 fois avec un simple décalage horizontale, si 4, 1ère copie avec simple décalage horizontale, 2nde copie avec décalage horizontale et verticale, et ainsi de suite ;
- pour tous les chiffres impairs, en dessous de la sélection.
Au départ, pour envisager les différentes possibilités de valeur de "A1", j'avais utilisé un "select case" mais cela peut devenir très long.
Voici le code envisagé au départ :

Code:

Sub CopieFonctionNbreEquipe()
With Worksheets("calendriersType")
    Dim calenType As Range
    Dim celRef As Range
    Dim nbreEquipe As Range
    
    Set celRef = .Range("a5")
    Set nbreEquipe = .Range("i1")
    Set calenType = .Range("a5:d13")
    calenType.Copy
    
    Select Case nbreEquipe
        Case Is = 2
            celRef.Offset(0, 4).PasteSpecial Paste:=xlFormats
        Case Is = 3
        Case Is = 4
        Case Is = 5
    End Select
End With
End Sub

Merci pour toute l'aide que vous m'apporterez

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Décembre 2012

• #5

Re : VBA identifier et copier valeurs d'un tableau

la.. il va nous falloir un fichier exemple...parce que vu comme ca..
déjà. à partir de "à droite de la sélection... je te suis plus..;-)

 

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 23 Décembre 2012

• #6

Re : VBA identifier et copier valeurs d'un tableau

Voici donc un fichier. Les macros posant problème sont dans le module 2.

Dans ce module, deux macros qui servent un peu de test.

Merci pour l'aide

 

Pièces jointes

• test.xlsm

  65.2 KB · Affichages: 36
• test.xlsm

  65.2 KB · Affichages: 42
• test.xlsm

  65.2 KB · Affichages: 39

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Décembre 2012

• #7

Re : VBA identifier et copier valeurs d'un tableau

Suis pas sur d'avoir tout compris

la zone multicolore A2D5, c'est le motif que tu veux copier coller autant de fois que tu le demandes en cellule A1 ?
si tu mets 2: tu veux 2 motifs cote à cote
si tu mets 3 2 cotes à cote +1 en dessous du premier
4: 2 *2 motifs l'un en dessous de l'autre.. etc etc...?

 

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 23 Décembre 2012

• #8

Re : VBA identifier et copier valeurs d'un tableau

En gros c'est le principe, presque :

si 2, un motif à côté,
si 3, un motif à côté et un autre juste dessous,
si 4, un motif à côté, un autre juste dessous et un qui sera en dessous avec un décalage vers la droite,

Merci pour l'aide

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Décembre 2012

• #9

Re : VBA identifier et copier valeurs d'un tableau

essaie ceci..

 

Pièces jointes

• Copie de test.xlsm

  42.9 KB · Affichages: 29
• Copie de test.xlsm

  42.9 KB · Affichages: 32
• Copie de test.xlsm

  42.9 KB · Affichages: 31

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 23 Décembre 2012

• #10

Re : VBA identifier et copier valeurs d'un tableau

Cela fonctionne parfaitement mais j'ai des questions car j'aime comprendre :
- je ne comprends pas le "i < NbDeMotifs" : tant que i est inférieur au nombre de motif, la boucle se poursuit. Mais c'est toujours le cas puisque i a reçu pour valeur 1 juste avant.
- est-il possible de remplacer "Application.Goto Reference:="Motif"" par un simple "range".
Merci pour les réponses

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Décembre 2012

• #11

Re : VBA identifier et copier valeurs d'un tableau

si tu regardes bien dans la boucle While ---> Wend, on incrémente i = i+1
tu peux aussi faire range("Motif").select

 

Vote positif 0 Vote négatif

A

alexvol

XLDnaute Nouveau

• 23 Décembre 2012

• #12

Re : VBA identifier et copier valeurs d'un tableau

Merci pour l'aide. Tout fonctionne parfaitement

Bonnes fêtes

 

Vote positif 0 Vote négatif