Discussion :

[canelun]

Bonjour,
Je suis entrain de créer un programme VBA sur Excel 2003 et je rencontre quelques problèmes.

Je vais vous les exposer un à un.

1) J'aimerais pouvoir copier coller- un tableau à 6 colonnes plusieurs fois de suite (à la suite en dessous du premier tableau) à l'aide d'un userform. En gros dans mon Userform je demanderai "Combien de fois voulez-vous copier-coller le Tableau?" Je rentrerai une valeur et je validerai avec un bouton valider. Le copier coller du tableau se fait de la feuil1 à la feuil2

2) Mon deuxième problème est de créer une condition qui dirait: Dans la plage de cellule ("A33") de la feuil3 si la valeur de la cellule est >1 alors je sélectionne la cellule qui se trouve deux cases au dessus et je colle la valeur (qui savere être le nom d'une personne) dans la feuil2. En G1 dans le premier tableau. Je répète cette condition jusqu'à la cellule D3. Chaque nom devra se trouver dans un tableau ( = un tableau pour un personne).

Seriez-vous m'aider svp? J'espère avoir été assez clair.

Je vous joins le fichier exemple.

[casefayere]

Bonjour à tou(te)s, canelun

Pour ta première question

1) J'aimerais pouvoir copier coller- un tableau à 6 colonnes plusieurs fois de suite (à la suite en dessous du premier tableau) à l'aide d'un userform. En gros dans mon Userform je demanderai "Combien de fois voulez-vous copier-coller le Tableau?" Je rentrerai une valeur et je validerai avec un bouton valider. Le copier coller du tableau se fait de la feuil1 à la feuil2

sans USF, essayes ce code, si, bien sur, j'ai compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim Copiage As Range, Dl As Long, Nfois As Integer, x As Integer
Set Copiage = Application.InputBox("Plage à copier", Type:=8)
Nfois = InputBox("Nombre de fois à copier", , 1)
For x = 1 To Nfois
  With Sheets("Feuil2")
    Dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    Copiage.Copy .Range("A" & Dl)
  End With
Next x
End Sub

la deuxième question n'est pas claire, surtout quant à la destination du nom

[canelun]

Merci beaucoup d'avoir répondu à ma première question. Celà semble fonctionner correctement.

Oui pour la seconde question je pense qu'il faut que je réexplique un peu.

Dans ma feuil 3 il y a une matrice des compétences (fictive) de personne (sur un poste de travail). Lorsque la personne a une notation de 1 cela veut dire qu'elle est entrain d'être formée, lorsqu'elle a 2 c'est qu'elle n'est pas encore autonome, 3 elle est autonome sur ce poste et 4 que c'est un formateur. Le 0 signifie qu'elle ne travail pas sur ce poste.

Le but de la démarche est de créer une boucle qui dirait "dans la feuil3 si dans la plage de cellule allant de A3 à D3 (ou plutôt à x cellule) la valeur de la cellule est > 1 alors sélectionner la cellule qui contient le nom de la personne (ayant une cotation supérieur à 1 donc) par exemple en A3 on voit que la valeur de la cellule est 1 donc je sélectionne la cellule qui se trouve deux lignes au dessus et je la rentre dans la case "agent" du premier tableau de la feuil 2 qui va de A1 à E13. En gros il faut retrouver Hulot Nico dans la plage de cellule de (E2:E13). Ensuite j'analyse dans la feuil 2 si Lebrun George à une cotation supérieur à 1 et si oui on le met dans le second tableau (créer grâce à ta première réponse).

J'espère que c'est plus clair.

[casefayere]

je vois à peu près, sauf, qu'il faut être très précis, quand tu dis :

....et je la rentre dans la case "agent" du premier tableau de la feuil 2 qui va de A1 à E13....

la case "agent" est en feuil1, je pourrai certainement proposer un code, quand tout sera précis.

Si je considère qu'il s'agit de la feuil1, en attendant ta réponse, code à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
Dim Dc As Integer, x As Integer, Dl As Integer
With Sheets("Feuil3")
  Dc = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
  For x = 1 To Dc
    If .Cells(3, x) > 1 Then
      Dl = Sheets("Feuil1").Range("G" & Sheets("Feuil1").Rows.Count).End(xlUp).Row + 1
      Sheets("Feuil1").Range("G" & Dl) = .Cells(1, x)
    End If
  Next x
End With
 
End Sub

[canelun]

Désolé c'est vrai j'avais oublié que agent se trouvé dans la feuil 1. C'est une erreur de ma part le nom "agent ne doit pas se trouver dans la feuil 1. Fait cmme si il n'existait pas dans la feuil1. En faite J'ai créer un bouton qui me permet de mettre ( bouton " nom agent" et qui se trouve dans la feuil2) Agent dans la case G1)

[casefayere]

Ca ne fait rien, adaptes le code que je t'ai proposé.

[canelun]

En faite il faudrait que l'on voit noté Hulot Nico de la case G2 à G13 si les conditions sont remplises par exemple