Recherche une valeur et copie ensuite

[canaillou]

Bonsoir à tous,

je reviens vers les habitués du forum (que je salue) pour une demande qui apparaitra peut-être très simple mais qui m'ennuie.

j'ai une feuille excel avec un grand nombre de valeurs différentes. j'aimerais créer un code ou une formule qui reconnaisse une valeur particulière unique de cette feuille (dans mon exemple "non") et qui me sélectionne et copie ensuite des valeurs , par exemple deux lignes / colonnes plus bas ...

oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui non oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui
oui oui oui oui oui oui oui

merci par avance et désolé pour l'inaptitude !
canaillou

 

[laurent950]

Re : Recherche une valeur et copie ensuite

Bonsoir,

Donc vous avez un tableau de valeur (toute identiques) sauf une différente une fois celle-ci identifié vous voulais créer une zone de sélection dans ce tableau à partir de cette valeur différente trouvé (comme dans votre exemple 2 lignes plus bas une colonne à droite = le point de départ de cette zone de sélection (est la sélection 6 lignes et 4 colonnes)

Oui cela est possible mais il y a plein de possibilité comment voulais vous cela et pour la suite (c'est juste une sélection a l'écrans et la Macro stop ?) ou d'autre fonction par la suite ?

Laurent

 

[mapomme]

Re : Recherche une valeur et copie ensuite

Bonsoir canaillou,
Un code VBA dont vous pouvez peut-être vous inspirer...
Sélectionnez la zone à traiter puis cliquez sur le retangle bleu.

Sub TrouveEtCopie()
Dim MaPlage As Range, Valeur, Tablo(1 To 3)
Dim i, xCell As Range

Set MaPlage = Selection

If MaPlage.Count < 3 Then
  MsgBox "moins de trois cellules dans le tableau => échec"
  Exit Sub
End If

For Each xCell In MaPlage
i = i + 1: Tablo(i) = xCell.Value
If i = 3 Then Exit For
Next xCell

'Trouve le mot à ne pas chercher
If Tablo(1) = Tablo(2) Then
  Valeur = Tablo(1)
ElseIf Tablo(1) = Tablo(3) Then
  Valeur = Tablo(1)
ElseIf Tablo(2) = Tablo(3) Then
  Valeur = Tablo(2)
Else
  MsgBox "A priori trois ou plus valeurs différentes dans la sélection => échec"
  Exit Sub
End If
  
MsgBox "Valeur non recherchée : " & Valeur

For Each xCell In MaPlage
  If xCell.Value <> Valeur Then Exit For
Next xCell

If xCell.Value = Valeur Then
  MsgBox "Aucune valeur diff. de " & Valeur & " présente => échec"
  Exit Sub
End If

xCell.Offset(2, 1).Resize(6, 4).Copy Destination:= _
  Sheets("Feuil2").Range("A1")

End Sub

Edit: v2 copie des valeurs seulement.

 

[canaillou]

Re : Recherche une valeur et copie ensuite

Merci à vous deux ! c'est une super aide !
A bientot