Ligne esquivée
Résolu/Fermé
Shadorb
Messages postés
53
Date d'inscription
lundi 4 avril 2016
Statut
Membre
Dernière intervention
20 juin 2016
-
6 avril 2016 à 14:49
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 8 avril 2016 à 11:19
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 8 avril 2016 à 11:19
A voir également:
- Ligne esquivée
- Apparaitre hors ligne whatsapp - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- En ligne sur instagram alors que non - Forum Instagram
- Ligne occupée - Forum SFR
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
8 avril 2016 à 11:19
8 avril 2016 à 11:19
Bonjour Shadorb, bonjour le forum,
Peut-être comme ça :
Peut-être comme ça :
Sub Macro1()
For Each cell In rangeCode
'MsgBox (StrComp(codeActuel, cell.Value, vbTextCompare) = -1)
If (StrComp(codeActuel, cell.Value, vbTextCompare) = -1) Then
ligne = cell.Row
colonne = Cells.Column 'Split(cell.Address, "$")(1)
MsgBox (colonne)
MsgBox (ligne)
Worksheets(1).Cells(ligne, colonne) = "test"
MsgBox ("osef de la ligne")
End If
Worksheets(1).Range("B" & cell.Row - 3) = Worksheets(2).Range("B" & cell.Row)
codeActuel = cell.Value
Next
End Sub