Discussion :

[maranatha-1975]

Bonjour,

Mon fichier contient 3 onglets.

Onglet 1 - A1=1
Onglet 2 - A1=3

Dans l'onglet 3 en A1
Je veux intégrer la valeur de A1 de l'onglet 1.
Comme dans l'onglet 1, la valeur de A1 est différente de 0, je veux placer dans l'onglet 3 en A2 la valeur de A1 de l'onglet 2.

Si la valeur de A1 dans l'onglet 1 avait été de 0, j'aurai intégré en A1 la valeur de A1 de l'onglet 2.

Est-il possible de faire cela avce des formules, afin de le répercuter sur toutes les cellules de mon fichier ?

Merci d'avance pour votre aide.

[maranatha-1975]

Ci joint le code trouvé.

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
24
25
26
27
28
Sub Regroupement_Données()
 
Nom_Feuille_Finale = "Cat0"
 
'Initialisation  du numéro de ligne dans la feuille finale
idx_final = 13
 
'Récupération des données de la feuille "Cat1"
Sheets("Cat1").Select
 
For id1 = 1 To 250
  If Not Cells(id1, 1) = "" Then
     Cells(id1, 1).EntireRow.Copy Sheets(Nom_Feuille_Finale).Cells(idx_final, 1)
     idx_final = idx_final + 1
  End If
Next id1
 
'Récupération des données de la feuille "Cat2"
Sheets("Cat2").Select
 
For id1 = 1 To 250
  If Not Cells(id1, 1) = "" Then
     Cells(id1, 1).EntireRow.Copy Sheets(Nom_Feuille_Finale).Cells(idx_final, 1)
     idx_final = idx_final + 1
  End If
Next id1
 
End Sub