If sur une cellule contenant du texte
Résolu/Fermé
Andbed
Messages postés
14
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
5 juin 2014
-
4 juin 2014 à 15:41
Andbed Messages postés 14 Date d'inscription mercredi 16 octobre 2013 Statut Membre Dernière intervention 5 juin 2014 - 5 juin 2014 à 08:14
Andbed Messages postés 14 Date d'inscription mercredi 16 octobre 2013 Statut Membre Dernière intervention 5 juin 2014 - 5 juin 2014 à 08:14
A voir également:
- If sur une cellule contenant du texte
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Excel si cellule contient texte alors ✓ - Forum Excel
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
4 juin 2014 à 16:27
4 juin 2014 à 16:27
Bonjour,
Allez sur la feuille concernée, clic droit sur l'onglet: Visualiser le code.
Vous copier cela:
Je vous laisse mettre le code de copie
Allez sur la feuille concernée, clic droit sur l'onglet: Visualiser le code.
Vous copier cela:
Option Explicit
Dim rep As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
rep = Target.Value
Else
Exit Sub
End If
If rep = "OK" Then
MsgBox "les valeurs de B1 à H1 soit copiées de I1 à O1 "
'utiliser l'enregistreur de macro pour mettre le code
Else
MsgBox "les valeurs de B1 à H1 soit copiées de P1 à V1 "
'utiliser l'enregistreur de macro pour mettre le code
End If
End Sub
Je vous laisse mettre le code de copie
Andbed
Messages postés
14
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
5 juin 2014
1
5 juin 2014 à 08:14
5 juin 2014 à 08:14
j'ai trouvé :
If Range("A1") = "OK" Then
Range("B1:H1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I1:O1").Select
Selection.Copy
Else
Range("B1:H1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("P1:V1").Select
Selection.Copy
If Range("A1") = "OK" Then
Range("B1:H1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I1:O1").Select
Selection.Copy
Else
Range("B1:H1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("P1:V1").Select
Selection.Copy