Microsoft 365 Copie valeur vba

achraf26 · 22 Janvier 2024

Bonjour,
j'ai mis ce code car je voulais copier seulement la valeur mentionné en cellule B6 (c'est un alphabet soit "F" "E" "O")
dans la 1er cellule vide de la colonne B à partir de 9é Ligne, mais quand je met Range("B6").Copy. Value ça ne fonctionne pas
Merci à vous

VB:

Sub AF()
If [B9] = "" Then
Else
Range("B6").Copy Destination:=Range("b" & Rows.Count).End(xlUp)(2)
End If
End Sub

Phil69970 · 22 Janvier 2024

Bonjour @achraf26

Avec un fichier c'est toujours mieux.
Un essai en fonction de ce que j'ai compris.....

VB:

Sub AF()
Dim Derlig&
Derlig = Range("B" & Rows.Count).End(xlUp).Row + 1
If Derlig > 8 Then
    Range("B" & Derlig) = Range("B6").Value
End If
End Sub

Merci de ton retour

Phil69970 · 22 Janvier 2024

Bonjour @achraf26

Avec un fichier c'est toujours mieux.
Un essai en fonction de ce que j'ai compris.....

VB:

Sub AF()
Dim Derlig&
Derlig = Range("B" & Rows.Count).End(xlUp).Row + 1
If Derlig > 8 Then
    Range("B" & Derlig) = Range("B6").Value
End If
End Sub

Merci de ton retour

achraf26 · 22 Janvier 2024

Phil69970 à dit:
Bonjour @achraf26

Avec un fichier c'est toujours mieux.
Un essai en fonction de ce que j'ai compris.....

VB:

Sub AF() Dim Derlig& Derlig = Range("B" & Rows.Count).End(xlUp).Row + 1 If Derlig > 8 Then Range("B" & Derlig) = Range("B6").Value End If End Sub

Merci de ton retour

Bonjour Phil,
Merci pour la réponse rapide, tu m'as sauvé.
entre temps quand la cellule B6 mentionne un alphabet c'est possible d'afficher que les lignes dont la colonne B Contient cet alphabet et si c'est vide on voit tous les lignes ?

Phil69970 · 22 Janvier 2024

Re

Phil69970 à dit:
Avec un fichier c'est toujours mieux.

Avec l'explication de ce que tu veux

achraf26 · 22 Janvier 2024

Phil69970 à dit:
Re

Avec l'explication de ce que tu veux

Re Merci pour votre aide.
Ci joint le fichier

Phil69970 · 22 Janvier 2024

@achraf26

Je te propose ce fichier

Le fichier m'a permis de voir que tu as un tableau structuré !!!
J'ai donc modifié le code en conséquence

Merci de ton retour

achraf26 · 22 Janvier 2024

Phil69970 à dit:
@achraf26

Je te propose ce fichier

Le fichier m'a permis de voir que tu as un tableau structuré !!!
J'ai donc modifié le code en conséquence

Merci de ton retour

je comprend pas, pourquoi

Phil69970 à dit:
@achraf26

Je te propose ce fichier

Le fichier m'a permis de voir que tu as un tableau structuré !!!
J'ai donc modifié le code en conséquence

Merci de ton retour

re,
Je ne sais pas voir les codes vba vu que Microsoft a bloque l'exécution.
si je peux avoir juste le code de ce filtre, je sais me débrouiller pour le reste
Bien à vous

Phil69970 · 22 Janvier 2024

@achraf26

Dans un module tu copies ce code à la place de ton code

VB:

Sub Ajout()
With Sheets("Feuil1").ListObjects("Tableau2").ListRows.Add
      .Range(1, 1) = Range("B6")
End With
End Sub

Sub Filtre()
If Range("B6") <> "" Then
    Range("Tableau2[[#Headers],[Dates]]").AutoFilter
    Range("Tableau2").AutoFilter Field:=1, Criteria1:=Range("B6")
Else
    SupprimeFiltre
End If
End Sub

Sub SupprimeFiltre()
If ActiveSheet.FilterMode = True Then
    Range("Tableau2[[#Headers],[Dates]]").AutoFilter
End If
End Sub

Microsoft 365 Copie valeur vba

achraf26

XLDnaute Occasionnel

Phil69970

Phil69970

XLDnaute Barbatruc

achraf26

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

achraf26

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

achraf26

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Discussions similaires